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i. 



2.1 



i«2 



3, 



ABSTRACT 



TH2S MAINOEC CONSISTS OF A FACKASE OF TEST PRQ6f?AHS DESIQNID 
TO TEST AN ASR33p KSR33| ASRlSi OR KSR3S TELETYPE NHEN ATTACHED 
TO A PDPSl SYSTEM THROUGH A Kill OR DLUA TELETYPE CONTROL, ALL 
TESTS ARE INCLUDED IN A SINGLE OBJECT TAPE, NOTE! THE 
FOLLOWING PROGRAMING FORMAT IS ILLEGAL AND IS NOT USED IN 
THIS PROGRAM - MESSAGE, FILLER, FILLER, RESET, AND ANOTHER 
MESSAGE IMMEDIATELY, 

THE AVAILABLE TEST PROGRAMS ARE LISTED HERE IN NUMERICAL QRDERI 

PRG0-COMBINED INPUT-OUTPUT LOGIC TESTS 
PRGI^READER TEST 
PR62^PRINTER TEST 
PRG3*PUNCH TEST 
PR64-KEYB0ARD TEST 

PR65-C0MBINED READER-PUNCH-PRINTER TEST 
PRGbtREADER EXERCISER-SPECIAL BINARY COUNT PATTERN 
PRG7-PRINTER EXERCISER 

PR610-SPECIAL BINARY COUNT PATTERN TAPE GENERATOR 
PRSllf»PUNCH CLOCK ADJUSTMENT ROUTINE 
PR612-REA0ER CLOCK ADJUSTMENT ROUTINE 
PRGIS-MAINTENANCE MODE SINGLE CHARACTER DATA TEST, 
PRGU'P'MAINTENANCE MODE SPECIAL BINARY COUNT PATTERN TEST. 

PROGRAMS PRG0 THROUGH PRG5 ARE THE ACTUAL TELETYPE TESTS, 
PROGRAMS PRG6 THROUGH PRGU ARE UTILITY AND MAINTENANCE ROUTINES, 

REQUIREMENTS 



EQUIPMENT 



A, PDP-U SYSTEM. (4 K CORE), 

B, A8R33, KSR33, ASR35, OR KSR35 TELETYPE WITH KLII OR DLIIA TTY CONTROL, 

THE TELETYPE MUST HAVE STANDARD PERIPHERAL ADDRESSES. 
REFER TO SECTION 7.3 IF THE TELETYPE DOES NOT HAVE STANDARD 
PERIPHERAL ADDRESSES. 

STORAGE 



THIS PROGRAM USES LOCATION 00000 THROUGH 16000. 
LOADING PROCEDURE 



THIS PROGRAM'S OBJSCT TAPE IS PUNCHED IN ABSOLUTE fORMATt 
THE ABS LOADER IS USED TO LOAD THE PROGRAM. 
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95 4^ USE PROeEOURE 

fS THIS PROSRAM HAS SEEN HODIFIED TO RUN WITH OR NITHOUT 

ff A CONSOLE PROCESSORS 

10i IF A CONSOLE MACHINE IS USEDf THEN THE FR06RAM 

lil LOOKS AT THE HARDWARE SWITCH RE6ISTER9 

lil IF A CONSOLEi^LESS MACHINE IS USEDfTHEN THE PROSRAH 

iiS AUTOMATICALLY LOOKS AT THE CONTENTS OF LOCATION 

104 SOFTSR (176) AS A SWITCH REGISTER. 

iiS 

lil IT'S THE RESPONSIBILITY OF THE OPERATOR TO SET UP 

li? THIS LOCATION PRIOR TO STARTING THE PROGRAM, 

li® 

|lf IF IT HALTS THEN THE OPERATOR HAS TO SET UP THE 

il8 SWITCH REGISTER AND RESTART AT THE NEXT LOCATION 

lil OF THE NORMAL HALT, 

ill IF A SWITCH REGISTER IS AVAILABLE ALL THAT THE 

il3 OPERATOR HAS TO DO IS SET THE S,R, AND HIT CONTINUE. 

ii4 

IIS 4,1 TELETYPE IDENTIFICATION 

ill 

ilT 

IIS BEFORE RUNNING ANY OF THE TEST PROGRAMS^ DEPOSIT IN LOCATION 

lit 001230 ONE OF THE FOLLOWING NUMBERS! 

ii0 

111 000000 IF ASR33 IS ATTACHED; OR 000010 IF KSR33 IS ATTACHEDfOR 

122 000001 IF ASR35 IS ATTACHED, OR 000011 IF KSR35 IS ATTACHED* 

ii3 

124 TELETYPE IDENTIFICATION NEED BE DONE ONLY ONCE PER PROGRAM 

115 LOADi UNLESS MORE THAN ONE TYPE OF TELETYPE IS ATTACHED TO SYSTEM, 

116 

12? 4.2 PRG0 USE PROCEDURE (DESCRIPTION IN SECTION 8.1} 

128 ^^••««««^»«,.-^«««.*,.»-^..p-..«„»,p«»^»«»„«»» 
129 

190 A. IDENTIFY TELETYPE AS PER SECTION 4.1, 

131 B. SET TELETYPE TO ON-LINE. 

132 C« LOAD SPECIAL BINARY COUNT PATTERN TEST TAPE IN TAPE 

133 READER AND MAKE READER READY (DATA OVER PINS) 

134 D, LOAD ADDRESS 000200 

135 E. SET SR TO 000000. PRESS START 

136 F, THE PROGRAM STOPS AT COMMON HALT, 

13T S« SET ANY DESIRED SR OPTIONS. NORMAL RUN li WITH SR i e0g§0ge 

151 

139 THIS PROGRAM'S SR OPTIONS ARES (iXPLAINED IN SECTION 7.2) 

li0 

|4| SR15 HALT AT END OF ROUTINE 

142 SRI4 SCOPE MODE 

143 SRll INHIBIT ITERATION 

144 SRI0 LOOP PROGRAM 

145 SR9 SELECT ROUTINE 

146 SR6 THROUGH SR0 ■ NUMBER OF ROUTINE TO BE SELECTED, 
147 

US H. PRESS CONTINUE. THE PROGRAM IS EXECUTED AND STOPS AT 
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iHf FR05RAH END HALT NHEN eOHFlETiDf PROVIDiD NO ERRQiS OCCUR® 

190 I« REFER TO SECTION IF ERRORS OCCUR^ 

m 

iSg EXECUTION TIHES NORMAL ERROR FREE PASS ABOUT 4 HINUTES^ 
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1S3 
|§4 

155 4»1 PRii USE PROCEDURE CDESCRIPTION IN SECTION SaSJ 

i5i ^ 

iSf 

IIS At IDENTIFY TELETYPE AS PER SECTION 4a 

|S9 if SET TELETYPE TO ON«LINE 

1*0 Ct LOAD SPECIAL BINARY COUNT PATTERN TEST TAPE IN TAPE 

1*1 READER AND MAKE READER REAOYs DATA HOLES HUST SE OVER 

l*g THE READ PINS. 

i*3 D« LOAD ADDRESS 00@S0@» 

1*4 l« SET SR TO 0000iS» PRESS START 

l*S Ft PROGRAM STOPS AT COMMON HALT* 

i** G» SET ANY DESIRED SR OPTIONS^ NORMAL RUN IS ^ITH SR i ii0ie0s 
1*T 

l*S THIS PROGRAM»S SR OPTIONS AREl CEKPLAINED IN SECTION 
l*f 

l?i SRIi HALT AT END OF ROUTINE 

l?l SRII INHIBIT ITERATION 

i?l SRi0 LOOP PROGRAM 

1?! SR9 SELECT ROUTINE 

l?4 SR* THR0U8H SR0 « NUMiER OF ROUTINE TO BE SELfCTEDt 

i?s 

1?* H« PRESS CONTINUE. READER IS TESTED, PROGRAM HALTS AT 

IT? PROGRAM END HALT IF NO ERRORS OCCUR* 

III 1« REFER TO SECTION *t IF ERRORS OCCUR* 
IT* 

iSi EXECUTION TIMEI NORMAL ERROR FREE PASS ABOUT II MINUTES^ 
ill 

tig 4,4 PRGi USE PROCEDURE CDESCRIPTION IN SECTION S»3) 

lis ^««p..-«*-«,p--p-«-p..«««p.-«.«p„*««^«„^ 

114 

IIS At IDENTIFY TELETYPE AS PER SECTION 4.1 

IS* B» SET TELETYPE TO ON^-LINE 

1ST C. LOAD ADDRESS 000800. 

IIS D. SET SR TO 000002. PRESS START 

|lf E» PROGRAM STOPS AT COMMON HALT. 

|t0 F. SET ANY DESIRED SR OPTIONS, NORMAL RUN IS NITH SR i §00000® 

IH 

1*1 THIS PROGRAM'S SR OPTIONS ARil CEXPLAINED IN SECTION T.gJ 

Its 

1*4 SRI5 HALT AT END OF ROUTINE 

1*5 SR10 LOOP PROGRAM 

1** SR* SELECT ROUTINE 

i*f SR* THROUGH 8R0 « NUMBER OF ROUTINE TO BE SELECTED. 
1*8 

1** H. PRESS CONTINUE. THE TELEPRINTER WILL BE EXERCISED AND 

200 THE PROGRAM WILL STOP AT PROGRAM END HALT WHEN COMPLiTiDt 

201 If ERROR DETECTION IS BY VISUAL INSPECTION OF RESULTING PRINTOUT® 
202 

20S EXECUTION TIMEI NORMAL ERROR FREE PASS ABOUT 12 MINUTES, 
104 



4*5 PRSS USE PROCEDURi COESCRIPTION IN SECTION 8t43 



A« IDENTIFY TEIETVPE AS PER SECTION aa 

it WITH TELETYPE OFF^LINEi PUNCH FIVE INCHES OF BLANK 

LEADiR« SET TELETYPE TO QN^LINE^ 
Cf LOAD 8LANK LiADER IN PAPER TAPf READER AND HAICE 

READER READY« PUNCH TO READER SLACK SHOULD NOT Bi 

EXCESSIVE. 
D® LOAD ADDRESS 0@0a00» 
E« SIT SR TO 000003. PRESS START 
Ft PROGRAH STOPS AT COMHON HALT» 

St SET ANY DESIRED SR OPTIONS^ NORMAL RUN IS NITH $R m ifiifie 
THIS PROGRAH^'S SR OPTIONS AREl (EXPLAINED IN SECTION ?«i3 



SRIS HALT AT END OF ROUTINE 

SRIi INHIBIT ITERATION 

SRi0 LOOP PROGRAM 

SR9 SELECT ROUTINE 



SR6 THROUGH SR0 » NUMIER OF ROUTINE TO BE SiLECTfD« 

Hs PRESS CONTINUE* THE PROGRAM WILL IKEiCISE THE PUNCH 

AND VERIFY THE DATA PUNCHED, 
It IF ANY ERRORS OCCUR REFER TO SECTION 6. ERRORS, 

EXECUTION TIME! NORMAL ERROR FREE PASS ABOUT 40 MINUTES, 

4.e> PRG4 USE PROCEDURE (DESCRIPTION IN SECTION 6,5) 



A, IDENTIFY TELETYPE AS PER SECTION 4.1. 

B, SET TELETYPE ON-LINE, 

C, LOAD ADDRESS 000200, 

D, SET SR TO 000004, PRESS START 

E« THE PROGRAM TYPES "KEYBOARD TEST" AND STOPS AT COMMON HALT, 

Ft SET ANY DESIRED SR OPTIONS, NORMAL RUN IS WITH SR • 000000, 
THIS PROGRAM'S SR OPTIONS AREl (EXPLAINED IN SECTION 7,2) 

SR15 HALT AT END OF ROUTINE 

SRIi LOOP PROGRAM 

SR9 SELECT ROUTINE 

SR6 THROUGH SR0 ■ NUMBER OF ROUTINE TO BE SELECTED^ 

G. PRESS CONTINUE. FOLLOW TYPED INSTRUCTIONS, WHEN DONE 
PROGRAM STOPS AT PROGRAM END HALT. 

EXECUTION TIMES PROGRAM IS USER DEPENDENT^ 
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4.7 PRG5 USE PROCEDURE (DESCRIPTION IN SECTION 8.63 






259 


A e 


IDHNTIPT TkLETtPc AS PER SECTION ^tls 


260 


Si 

Of 


wJtln TElwETTrE Urf^ipANt rUniCn rAV& INQnES Or PbANfl i,&APErSg 


IH 




SET TELETYrE TP uN»LINE» 


262 


f 


LOAD ouAniK ivEADEn IN PArEH TAPE REAuEf? AND nAi^E HCADEw rbADt® 


263 




PUNCH TO REAuCK SLACK SHOULD NOT BE EXC&SSIVEt 


264 


Dt 


LOAD ADDRESS 000200, 


2»S 


E 


SET SR TO 0000B!l« PRESS START® 


266 


8? 

Fs 


PROGRAH STOPS AT COMMON HALT 9 


267 


S. 


SET ANY DESIRED SR OPTIONS , NORMAL RUN IS WITH SR • 000000 t 


i6B 






269 




THIS PROGRAM'S SR OPTIONS AREl (EXPLAINED IN SECTION ?»1J 


270 




SRS DISABLE STALL MODE AND RUN FULL SPEED 


Vi 




PRESS CONTINUE, THE PRINTER, PUNCH, AND READER ARE EXERCISED IN 


272 




COMBINATION USING DATA CODES FROM 241 TO 337, THE PATTERN IS 
ROTATED SO THAT EACH CHARACTER IS TYPED IN EVERY PRINT POSITION 


273 




274 


I. 


REFER TO SECTION 6, ERRORS IF ERRORS OCCUR, 


275 






276 


EXECUTION TIMEJ ONE 63 UINE PASS TAKES ABOUT 18 MINUTES, 


277 






278 


4.6 PR66 USE PROCEDURE (DESCRIPTION IN SECTION 8.7) 


279 
280 










18} 


A. 


IDENTIFY TELETYPE AS PER SECTION 4,1 


282 


B. 


SET TELETYPE TO ON-LINE 


283 


c. 


LOAD SPECIAL BINARY COUNT PATTERN TEST TAPE IN TAPE READER 


284 




AND MAKE READER READY, DATA HOLES MUST BE OVER READ PINS, 


285 


D. 


LOAD ADDRESS 000200, 


286 


E. 


SET SR TO 000006, PRESS START 


287 


F. 


THE PROGRAM EXERCISES THE READER CONTINUOUSLY, 

SRS DISABLE STALL MODE AND RUN FULL SPEED OPTION MAY BE 


288 


G. 


289 




USED AT ANY TIME, SECTION 7,2 DESCRIBES SR OPTIONS, 


290 


H. 


REFER TO SECTION 6, ERRORS, IF ERRORS OCCUR, 


29J 






292 


EXECUTION TIMEI CONTINUOUS RUNNING. 


293 






294 


4.9 PRG7 USE PROCEDURE (DESCRIPTION IN SECTION 8,8) 


295 
296 










29? 


A. 


IDENTIFY TELETYPE AS PER SECTION 4,1 


298 


B. 


SET TELETYPE TO ON-LINE 


299 


c. 


LOAD ADDRESS 000200 


300 


D, 


SET SR TO 000007, PRESS START 


301 


E, 


THE PROGRAM TYPES "TYPE IN DATA" 


302 


F. 


KEY IN ANY FIVE CHARACTERS TO BE TYPED, 


303 


G. 


KEY IN EITHER A RUBOUT FOR FULL SPEED TYPING, OR ANY 


304 




OTHER CHARACTER FOR RANDOM STALLS BETWEEN CHARACTERS, 


305 


H, 


THE PROGRAM TYPES CONTINUOUSLY LINES CONTAINING THE 


306 




FIVE CHARACTERS SPECIFIED, UNTIL SRIS IS SET TO A 1, AT 


307 




THAT POINT THE PROGRAM GOES TO STEP E, 
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3}0 
3U 
512 
313 
3H 
SIS 

3ii 

317 
3i8 
319 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
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4,10 PR610 USE PROCEDURE (DESCRIPTION IN SECTION 6.9) 



A, IDENTIFY TELETYPE AS PER SECTION 4.1 

B, SET TELETYPE TO ON-LINE 

C, TURN ON PUNCH 

D, LOAD ADDRESS 000200, 

E, SET SR TO 000010, PRESS START 

P, THE PROGRAM C0NTINU08LY PUNCHES THE SPECIAL BINARY COUNT 
COUNT PATTERN UNTIL STOPPED BY USER, 

EXECUTION TIMEI CONTINUOUS RUNNING, 

4,11 PRGU USE PROCEDURE (DESCRIPTION IN SECTION 8,10) 



PRGll IS USED AS AN AID IN ADJUSTING THE TELETYPE PUNCH CLOCK, 
AND IN OBSERVING THE DATA BITS AS THEY ARE SHIFTED OUT OF THE 
PUNCH BUFFER, A SCOPE IS REQUIRED, 

TO ADJUST THE PUNCH CLOCK PROCEED AS FOLLOWS! 

A, LOAD ADDRESS 000200 

B, SET SR TO 000011, PRESS START, 

C, PROGRAM STOPS AT COMMON HALT, 

D, SET ANY DESIRED ASCII CODE IN LEFT HALF OF SR, 

E, SET NUMBER OF MILLISECONDS TO DELAY BETWEEN PUNCH COMMANDS 
IN RIGHT HALF OF SR, THE NUMBER OF MILLISECONDS SELECTED 
SHOULD BE LONG ENOUGH FOR THE ENTIRE PUNCH OPERATION TO 
COMPLETE. A SUGGESTED STARTING NUMBER IS 177, 

F, PRESS CONTINUE, THE PROGRAM RUNS CONTINUOUSLY, FIRST IT 
LOADS THE PUNCH BUFFER WITH THE CHARACTER IN SR LEFTi AND 
THEN DELAYS FOR THE NUMBER OF MILLISECONDS SPECIFIED IN SR 
RIGHT BEFORE RELOADING THE PUNCH BUFFER AGAIN, 

G, SET UP A SCOPE AND DISPLAY THE PUNCH CLOCK PULSES, ADJUST 
THE PUNCH CLOCK ACCORDING TO SPECIFICATIONS. 



4 
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S4I 4«ia PR6ia USE PROCEDURE COESCRIPTION IN SECTION S.!!) 

S#f 

Si0 

311 PRSia IS USED AS AN AID IN ADJUSTING THE REAOER/KTiD CLOCICi AND 

Hi IN 0SSERVIN6 THE DATA BITS AS THEY ARE SHIFTED INTO THE READBR/I^TSO 

333 BUFFERt A SCOFE IS REQUIRED. 
S|4 

313 THE PROGRAM MAKES USE OF THE PUNCH MAINTENANCE BIT FEATURE IN ORDER 

351 TO CAUSE THE DATA OUTPUTTED TO THE PUNCH BUFFER TO BE SHIFTED INTO 

31? THE REAOER/KYBD BUFFER. 
39S 

3Sf TO ADJUST THE READER CLOCK PROCEED AS FOLLOWS! 
3*0 

361 A, LOAD ADDRESS 000200 

3*2 B, SET SR TO 000012. PRESS START. 

3*3 C» PROGRAM STOPS AT COMMON HALT. 

3*4 D. SET ANY DESIRED ASCII CODE IN LEFT HALF OF SR. 

3*5 E. SET NUMBER OF MILLISECONDS TO DELAY BETWEEN PUNCH COMMANDS IN 
3** RIGHT HALF OF SR. THE SELECTED NUMBER SHOULD BE LONG ENOUGH FOR 

3*7 THE ENTIRE PUNCH/READ OPERATION TO COMPLETE. A SUGGESTED STARTING 

3*S NUMBER IS 177. 

3*f F. PRESS CONTINUE. THE PROGRAM RUNS CONTINUOUSLY. FIRST IT LOADS 

370 THE PUNCH BUFFER WITH THE CHARACTER IN SR LEFT, AND THEN DELAYS 

371 THE NUMBER OF MILLISECONDS SPECIFIED IN SR RIGHT. AS THE DATA 

371 BITS ARE SHIFTED OUT OF THE PUNCH BUFFER, THE READER CLOCK STARTS, 

373 AND THE DATA BITS ARE SHIFTED INTO THE READER BUFFER. AT THE END 

374 OF THE DELAY THE PROGRAM MOVES THE READ BUFFER CONTENTS TO REG 0, 

375 AND ISSUES 5 RESET INSTRUCTIONS IN ORDER TO MAKE THE READER 
37* BUFFER CONTENTS VISIBLE IN THE RIGHT HALF OF THE DATA LIGHTS. 
377 G. SET UP A SCOPE AND DISPLAY THE READ CLOCK PULSES. ADJUST THE 
37S READER CLOCK ACCORDING TO SPECIFICATIONS. 

S7f 
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3S1 

Sii 4«13 PRS13 USE PROCEDURE (DESCRIPTION IN SECTION §,123 

»# 

S«5 A« SET TElETyPE TO ON-LINE IF CHARACTER TO BE TESTED 
Sifc IS TO BE PUNCHED FOR VERIFICATION PURPOSES^ 

SiT if TURN ON PUNCH IF CHARACTER IS TO BE PUNCHED. 

30S Cfi lOAD ADRESS 00i200, 

SSf Dt SET SR TO 0000iSt PRESS START 

3fi Et THE PROGRAM STOPS AT COHHON HA^Te 

S^l Fs SET CODE FOR CHARACTER TO BE TESTED IN THE LEFT HALF OF THE 
Sfl SR. 

S^3 it PRESS CONTINUE. THE PROGRAM RUNS CONTINUOUSL¥# OUTPUTING THi 

394 CHARACTER TO THE OUTPUT BUFFER AND CHECKING THAT THE READ 

395 BUFFER CONTAINS THE SAME CHARACTER WHEN THE READER DONE BIT 

396 BECOMES SET, 

397 H. REFER TO SECTION 6. ERRORS, IF ERRORS OCCUR. 

391 

399 EXECUTION TIME! CONTINUOUS RUNNING. 

400 

40i 4.14 PRG14 USE PROCEDURE (DESCRIPTION IN SECTION S,|3) 

4i3 

484 A. SET TELETYPE TO ON-LINE AND TURN ON PUNCH IF DATA IS 

405 TO BE PUNCHED FOR VERIFICATION PURPOSES. 

406 B. LOAD ADDRESS 000200, 

407 C. SET SR TO 000014. PRESS START 

408 D. THE PROGRAM RUNS CONTINUOUSLY, THE SPECIAL BINARY COUNT 

409 PATERN IS OUTPUTTED TO THE OUTPUT BUFFER. EACH TIME 

410 THE READER DONE BIT BECOMES SET THE CHARACTER IN THE 

411 READ BUFFER IS CHECKED TO SEE THAT IT MATCHES THE 

412 PREVIOUSLY OUTPUTTED CHARACTER. THE PROGRAM STALLS 

413 RANDOMLY BETWEEN CHARACTERS, TO RUN AT FULL SPEEO# SET 

414 SR6 TO A 1. 

415 E. REFER TO SECTION 6. ERRORS, IF ERRORS OCCUR. 

416 

417 EXECUTION TIMES CONTINUOUS RUNNING. 

41S 
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419 S» PROGRAM AND/OR OPERATOR ACTION 

ill 

411 itl NORHAl. HAI^TS 
414 

#1! l»Oe iil4l@ COMMON HALTe THIS HALT OCCUii MHCNEVER 

#1* THE PROGRAM IS AWAITING USER INTlRVINTIONffl 

#ir REGISTER ZERO CONTAIN THE AOORISS OF 

ill INSTRUCTION THAT GENERATED THE CALL TO THE 

419 COMMON HALTt 

410 THIS ADDRESS IS DISPLAYED IN THE DATA LIGHTS, 

411 IP AN¥« 
411 

413 LOC 001524 END OF ROUTINE HALT. THIS HALT OCCURS AT THE 

414 END OF A TEST ROUTINE IF SR15 IS SET TO A 1. 

415 TO PROCEED, PRESS CONTINUE. PROGRAMS PRGi, 
411 PRGli PRG2, PRG3 AND PRG4 USE THE ROUTINE END 

41T OPTION. 
411 

439 LOC 2106 PROGRAM END HALT. THIS HALT NORMALLY OCCURS AT 

441 THE END OF PROGRAMS PRG0, PRGl, PR62, PRG3, AND 

441 PR64 UNLESS THE LOOP PROGRAM OPTION IS SET. (SRlt) 

441 

443 6, ERRORS 

444 mmmv»mm 

443 

446 6.1 ERROR HALTS 

44? mmmmmmwmmmm 

44S 

449 LOC 001442 UNCONDITIONAL ERROR HALT. REGISTER ZERO CONTAINS 

430 ADDRESS OF INSTRUCTION THAT GENERATED THE 

431 ERROR CALL. REFER TO PROGRAM LISTING. 

411 THIS ADDRESS IS DISPLAYED IN THE DATA LIGHTS, 

433 IF ANY. 

454 

453 LOC 001504 CONDITIONAL ERROR HALT. THIS CALL WILL ALWAYS 

486 OCCUR, UNLESS SR14 IS SET TO A 1« (SCOPE MODE) 

45T REGISTER ZERO CONTAIN ADDRESS OF iNSTiUCTliN THiT 

«S GENERATED ERROR CALL. REFER TO PROGRAM LISTING, 

459 THIS ADDRESS IS DISPLAYED IN THE DATA LIGHTS, 

460 IF ANY. 
461 

461 LOC 001462 DATA ERROR HALT, OCCURS WHEN A PROGRAM OR 
*»1 ROUTINE CHECKING DATA FINDS THAT THE EXPECTED 
4*4 AND THE RECEIVED DATA DO NOT AGREE. THE LIFT 
4*5 HALF OF REGISTER ZERO CONTAIN THE EXPECTED 
4*6 S BIT DATA, THE RIGHT HALF CONTAINS THE 

46T RECEIVED 8 BIT DATA. 

4*1 THIS DATA IS DISPLAYED IN THE DATA LIGHTS, 

4*9 IF ANY. 
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4T0 
4?l 
4Tg 

4T4 
475 
4Tfe 
477 
47a 
479 
460 
461 
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463 
464 
46i 
466 
487 
488 
469 
49i 
491 
491 
495 
494 
495 
496 
497 
498 
499 
50i 
501 
902 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
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NON RECOVERABLE ERROR HALTS 



A NON'pRECOVERABLE ERROR HALT WILL OCCUR AT THE ADDRESSES LISTED 
BELOW IF THROUGH HARDWARE OR SOFTWARE FAILURE, PROQRAN CONTROL 

15 TRANSFERRED TO AN UNEXPECTED AREA BETWEEN 000000 AND 000776. 

000002 RESERVED AREA 

00000b ERROR TRAP 

000012 RESERVED INSTRUCTION TRAP 

000016 DEBUG TRAP 
000022 lOT TRAP 
000026 POWER FAIL TRAP 

000040 THROUGH 000176 SYSTEM SOFTWARE AND INTERRUPT VECTOR AREAi 

EXCEPT FOR KLll INTERRUPT VECTORS, 

TO FIND OUT WHERE THE PROGRAM WAS AT THE TIME THE FAILURE OCCURREDi 
PERFORM THE FOLLOWING STEPS! 

A, EXAMINE THE CONTENTS OF REGISTER 6 (ADDRESS 177706). 

B, TRANSFER THE CONTENTS OF REGISTER 6 TO THE SR| LOAD ADDRRE8S, 
AND EXAMINE. 

C, THE DATA SHOWN IN THE DATA LIGHTS IS THE VALUE OF THE PC 
WHEN THE FAILURE OCCURRED. 

D, LOCATE IN THE PROGRAM LISTING THE DISPLAYED PC VALUE. 

E, THE INSTRUCTION THAT IMMEDIATELY PREECEDE8 THE ONE REFERENCED 
BY THE DISPLAYED PC VALUE IS THE INSTRUCTION THAT WAS/WAS BEING 
EXECUTED WHEN THE FAILURE OCCURRED. 

MISCELLANEOUS 



TEST TAPES 



MAINDECp»00-O264.PT SPECIAL BINARY COUNT PATTERN TEST TAPE IS 
RELEASED WITH THIS PROGRAM. 

THE SPECIAL BINARY COUNT PATTERN TAPE IS PUNCHED WITH A PATTERN 
CONSISTING OF THE NUMBERS 000 THROUGH 377. EACH NUMBER IS 
IMMEDIATELY FOLLOWED BY ITS ONES COMPLEMENT NUMBER. 
FOR EXAMPLEI 

001, 376, 002, 375, 003, 374, 004, 373 1 ETC. 

THE EASIEST WAY TO MAKE A SPECIAL BINARY COUNT PATTERN TEST 
LOOP IS TO OVERLAP THE TAPE AT THE POINT WHERE THE CHARACTERS 
377,000,000,377 APPEAR, THAT SEQUENCE OF CHARACTERS APPEARS 
EVERY 512 CHARACTERS. THEREFORE, A MINIMUM SIZE TEST LOOP WOULD 
CONSIST OF 512 CHARACTERS. 
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510 Tfig SR OPTIONS 

511 ^^««««^«*- 

58a 

SiS SRIS MALT AT END OF ROUTINE. FOR THOSE PR05RAMS CONSISTINS 

584 OF A SET OF SEPARATE TEST ROUTINES, SR45 SET TO A I 

585 CAUSES THE PROGRAM TO HALT UPON COMPLETION OF THE 

586 ROUTINE CURRENTLY 5EIN6 EXECUTED, THREE POSSIBLE USES 
58? OF THIS OPTION AREi 

58S 

589 At TO STEP THROUGH A PROGRAM ONE ROUTINE AT A TIME, 

530 B. WHEN AN UNPREDICTED FAILURE HAS OCCURRED (BLOW 

531 UP, HANG UP), TO ADVANCE THROUGH THE PROGRAM ONE 
538 ROUTINE AT A TIME UNTIL THE FAILURE OCCURS, THE 

533 ROUTINE FOLLOWING THE LAST IDENTIFIED ROUTINE WOULD 

534 BE THE FAILING ROUTINE, 

535 C. WHEN A PROGRAM IS IN EXECUTION, TO DETERMINE HOW 

531 FAR THE PROGRAM HAS PROGRESSED, 

53? 

53S SR14 - SCOPE, THIS OPTION IS USED ONLY BY PRG0, THE OPTION 

53f CAUSES THE PROGRAM TO BYPASS ERROR HALTS, AND TO STAY 

540 IN THE FAILING ROUTINE, 
541 

548 

543 SRII m INHIBIT ITERATION COUNT, THIS OPTION IS USED BY PRG0, 

544 PRGl, AND PRG3, THESE PROGRAMS CONSIST OF A SET OF 

545 ROUTINES EACH OF WHICH SPECIFIES THE NUMBER OF TIMES 

541 A TEST IS TO BE PERFORMED BY MEANS OF AN ITERATION COUNT, 
54? SETTING SRII TO A I CAUSES THE PROGRAM TO DISREGARD 

548 THE ITERATION COUNT AND PERFORM THE TEST ONLY ONCE FOR 

54f EACH ROUTINE. TWO POSSIBLE USES OF THIS OPTION AREt 
558 

551 A. QUICK PASS. THE USER MAY ELECT TO RUN THROUGH A 
551 PROGRAM QUICKLY TO FIND OUT IF ANY FAILURES SHOW 

553 IMMEDIATELY. A SUCCESSFUL QUICK PASS HOWEVER, DOES 

554 NOT GUARANTEE THAT THE SAME PROGRAM WILL RUN ERROR* 

555 FREE WHEN PERFORMING A NORMAL ITERATION PASS, 
Sift 

55? B, SKIP OVER FAILING ROUTINE, WHEN A ROUTINE HAS 

558 DETECTED A SOLID FAILURE, THE ERROR WILL BE REPORTED 

559 MANY TIMES, TO GO ON TO THE NEXT ROUTINE, THE USER 
5i0 CAN INHIBIT ITERATION, IT WILL BE NECESSARY TO 
561 CAUSE THE PROGRAM TO STOP AT THE END OF THE ROUTINE 
568 BY SETTING SR15 TO A I, OTHERWISE THE PROGRAM 

563 WOULD QUICKLY RUN THROUGH THE NEXT ROUTINE(S) ALSO, 

564 

565 
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(7.2 CONT'D) 

sRie 



7.3 



LOOP PROGRAM, THIS OPTION IS USED BY PROGRAMS 
PRGBf PR61,PR6S>PR63i AND PR64. SETTING SR10 
TO A I CAUSES THE PROGRAM TO REPEAT ITSELFf INSTEAD 
OF STOPPING AT PROGRAM END HALT. 

SR9 - SELECT ROUTINE. THIS OPTION IS USED BY PROGRAMS PRGB, 
PRG1»PRG2,PRG3, AND PRG4. THE USER MAY ELECT TO RUN 
ONLY ONE SPECIFIC ROUTINE BY SETTING SR9 TO A I , ANO 
SR6 THROUGH SRB TO THE NUMBER OF THE DESIRED ROUTINE. 
REFER TO THE INDIVIDUAL PROGRAM DESCRIPTION IN SECTION 
8 TO OBTAIN THE ROUTINE NUMBER. THE ROUTINE NUMBER 
SELECTED MUST BE A VALID NUMBER* OR AN ERROR HALT MILL 
OCCUR. THE SELECT ROUTINE OPTION WILL BE HONORED BY 
THE PROGRAM UPON COMPLETION OF THE CURRENT ROUTINE, OR 
UPON STARTING THE PROGRAM. 

SR8 • DISABLE STALL MODE AND RUN PULL SPEED. USED BY PRO- 
GRAMS PRG5,PRG6i AND PRG14, THESE PROGRAMS OPERATE 
NORMALLY IN STALL MODE (TESTS OR EXERCISES ARE NOT FULL 
SPEED, BUT RANDOM DURATION DELAYS ARE INTRODUCED) . 
SETTING SR8 TO A I CAUSES THE PROGRAMS TO PERFORM THEIR 
TESTS AT FULL SPEED. 

TESTING KLll AT NON-STANDARD ADDRESSES AND/OR VECTORS 



THIS PROGRAM CAN TEST A Kill ASSIGNED TO NON-STANDARD ADDRESSES AND 
VECTORS IF THOSE ADDRESSES ARE PROVIDED TO THE PROGRAM AS FOLLOWSl 



A. 



IMMEDIATELY AFTER LOADING THE PROGRAM CHANGE THE FOLLOWING 
LOCATIONS. REFER TO PROGRAM LISTING, 



LOCATION 
001210 

00121a 
001214 
001216 
001220 
001222 
001224 
001226 



FROM STANDARD TO NON-STANDARD 



177560 

177562 
177564 
177566 
000060 
000200 
000064 
000200 



RDR/KYBD CSR ADDRESS 
RDR/KYBD BUFFER ADDRESS 
PCH/PRINTER CSR ADDRESS 
PCH/PRINTER BUFFER ADDRESS 
RDR/«YiD VECTOR ADDRESS 
RDR/KYBD PRIORITY LEVEL 
PCH/PRINTER VECTOR ADDRESS 
PCH/PRINTER PRIORITY LEVEL 



8« PROCEED TO USE PROGRAM, OR 



C« DUMP OUT ENTIRE PROGRAM IN ABSOLUTE FORMAT, TO HAVE AN UPDATED 
OBJECT TAPE THAT REFLECTS YOUR SYSTEM, OR 

Dt DUMP OUT ONLY LOCATIONS 001204 THROUGH 001222, AND 

SPLICE THE TAPE TO THE END OF THE STANDARD OBJECT TAPE, 
THIS PROCEDURE WOULD REQUIRE THAT THE SHORT LENGTH OF 
TAPE BE LOADED IMMEDIATELY AFTER THE MAIN PROGRAM, IN 
ORDER TO OVERLAY LOCATIONS 001204 THROUGH 001222, 
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8, DESCRIPTION 



8.1 PR60 PROGRAM DESCRIPTION 



PRG0 TESTS THE INPUT AND OUTPUT UOGIC IN ONE PROGRAM. THE PROGRAM 
CONSISTS OP 36 TEST ROUTINES NUMBERED FROM 00 TO 43(8}. 

RTN0 TESTS ABIUITY TO REFERENCE THE READER/KYBO STATUS WORD (TK8) 

WITHOUT TRAPPING, 
RTNl TESTS ABILITY TO REFERENCE THE READER/KYBD BUFFER (TKiJ 

WITHOUT TRAPPING, 

RTNa TESTS ABILITY TO REFERENCE THE PRINTER/PUNCH STATUS WORD (TPS) 

WITHOUT TRAPPING, 
RTN3 TESTS ABILITY TO REFERENCE THE PRINTER/PUNCH BUFFER (TPB) 

WITHOUT TRAPPING. 
RTN4 TESTS ABILITY TO SET AND CLEAR THE READER/KYBD IE BIT. 
RTN5 CHECKS THAT READER /KYBD ID BIT CAN BE CLEARED WITH RESET INSTRUCTION. 
RTN6 CHECKS THAT READER DONE BIT SETS SOMETIME AFTER READER ENABLE. 
RTN7 TESTS THAT DONE BIT CAN BE READ RELIABLY. 
RTN10 TESTS THAT RESET CLEARS DONE BIT. 

RTNU CHECKS THAT REFERENCING READER BUFFER CLEARS DONE BIT. 
RTN12 TESTS THAT BUSY BIT BIT SETS SOMETIME BEFORE DONE SETS. 
RTN13 TESTS THAT READER DONE BIT IS CLEARED BY START BIT, (WHEN 

BUSY BECOMES SET.) 
RTNl* TESTS THAT READ BUFFER CAN BE READ RELIABLY. 

RTNtS CHECKS THAT READER DONE BIT IS ABLE TO CAUSE AN INTERRUPT, IF THE 

INTERRUPT IS 8ERVICED# IT WILL HAVE OCCURRED AT CORRECT VECTOR, 
RTNU TESTS THAT READER DONE DOES NOT CAUSE AN INTERRUPT WHEN THE PROCESSOR 

IS AT THE SAME PRIORITY AS THE READER'S INTERRUPT REQUEST LEVEL. 
RTNi7 TESTS THAT READER DONE CAUSES INTERRUPT WHEN THE PROCESSOR IS AT A 

PRIORITY ONE LEVEL LOWER THAN THE READER'S INTERRUPT REQUEST LEVEL, 
RTN20 CHECKS THAT READER DONE DOES NOT REINTERRUPT AFTER RTI 

INSTRUCTION WHEN DONE BIT IS LEFT SET, 
RTN21 TESTS ABILITY TO SET AND CLEAR THE PUNCH ID BIT, 
RTN22 CHECKS THAT PUNCH ID BIT CAN BE CLEARED WITH RESET INSTRUCTION, 
RTN2S TESTS ABILITY TO SET AND CLEAR PUNCH MAINTENANCE BIT, 
RTN24 CHECKS THAT RESET INSTRUCTION CLEARS THE MAINTENANCE BIT. 
RTN25 TESTS THAT RESET SETS THE PUNCH READY BIT, AND THAT THE 

READY BIT CAN BE READ RELIABLY. 
RTN26 TESTS THAT PUNCH READY IS CLEARED BY LOADING THE PUNCH BUFFER. 
RTN27 TESTS THAT BYTE LOADING PUNCH BUFFER^l DOES NOT CLEAR THE 

PUNCH READY BIT, 

RTN30 CHECKS THAT THE PUNCH BECOMES READY SOMETIME AFTER BUFFER LOAD, 
RTN31 CHECKS THAT PUNCH READY BIT CAN CAUSE INTERRUPT, IF THE INTERRUPT 

IS SERVICED, IT WILL HAVE OCCURRED AT THE CORRECT VECTOR 
RTN32 TESTS THAT PUNCH READY DOES NOT CAUSE AN INTERRUPT WHEN THE 

PROCESSOR IS AT A PRIORITY AS THE READER'S INTERRUPT REQUEST 

LEVEL, 

RTN33 TESTS THAT PUNCH READY CAUSES AN INTERRUPT WHEN THE PROCESSOR 
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RTN34 

RTN35 

RTN36 

RTN37 
RTN40 
RTN41 

RTN42 

RTN43 



IS AT PRIORITY ONE LEVEL LOWER THAN THE PUNCH INTERRUPT 
REQUEST LEVEL. 

TESTS THAT READY DOES NOT REINTERRUPT AFTER RTl WITH READY SET, 
CHECKS THAT PUNCH READY CAUSES AN INTERRUPT IMMEDIATELY UPON 
LOWERING PROCESSOR PRIORITY TO 0. 

CHECKS POR CORRECT OPERATION OF WAIT INSTRUCTION, (REFER TO 
PROGRAM LISTING) . 

TESTS THAT LOADING PUNCH BUFFER WITH MAINTENANCE BIT SET 

CAUSES READER DONE BIT TO SET SOMETIME AFTER, 

TESTS THAT CLEARING READY/INTERRUPT ENABLE CLEARS PUNCH 

INTERRUPT REQUEST, 
TESTS THAT CLEARING READER DONE/INTERRUPT ENABLE CLEARS 
READER INTERRUPT REQUEST, 

TESTS THAT THE DLUA,B KEYBOARD JUMPERS ARE CUT PROPERLY 
TESTS THAT THE OLllA.B PRINTER JUMPERS ARE CUT PROPERLY 



8.S 



PRGl PROGRAM DESCRIPTION 



PRGl CHECKS FOR CORRECT AND RELIABLE OPERATION OF THE PAPER TAPE 
READER. THE PROGRAM CONTAINS 3 ROUTINES NUMBERED FROM 00 TO 02. 

RTN0 READS AND CHECKS 2000 CHARACTERS OF SPECIAL BINARY COUNT 
PATTERN AT FULL SPEED, 

RTNl READS AND CHECKS 1000 CHARACTERS OF SPECIAL BINARY COUNT 
PATTERN WITH RANDOM DURATION STALLS BETWEEN CHARACTERS, 

RTN2 READS AND CHECKS 200 GROUPS OF CHARACTERS OF SPECIAL BINARY 
COUNT PATTERN, LENGTH OF EACH GROUP IS RANDOM, BUT DOES NOT 
EXCEED 15 CHARACTERS. 
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8»3 PRsa DgSCRIPTION 



PR«52 EXERCISiS THE TELEPRINTER FUNCTIONS, VERIFICATION OP TELEPRINTER 
OPERATION IS PERPORNED VISUALLY BY USER, THE PR06RAN CONTAINS 
if ROUTINES NUMBERED FRON 00 TO S4CS), 

RTN0 CARRIAGE RETURN TEST, CHECKS THAT CARRIA6E CAN CORRECTLY 

RETURN TO PRINT POSITION FROM EVERY OTHER PRINT POSITION, 



RTNi RI8HT MARSIN TEST, THIS ROUTINE VERIFIES THAT THE RliHT 
MAR9IN IS CORRECTLY SET FOR ?! PRINT POSITIONS, THE TEST 
TYPES n CHARACTERS, IF THE RISHT MARSIN IS CORRECTLY SET, 
CHARACTER 73 SHOULD OVERPRINT CHARACTER fg, THE TYPED LINE 
SHOULD LOOK AS FOLLOWSl 

RTN2 SPACE TESTt CHECKS ABILITY OF TELEPRINTER TO SPACE CORRECTLY, 
THE TEST FIRST PRINTS REVERSE SLASHES CSJ IN ALTERNATE PRINT 
POSITlONSi AND THEN SPACES FROM PRINT POSITION TO EACH 
PRINT POSITION AND PRINTS A SLASH C/J* THE TYPIOUT SHOULD 
LOOK AS FOLLOWS I 



RTNS LINE FEED TEST, TESTS FOR ABILITY TO CORRECTLY PERFORM A 

LINE FEED. A RANDOM STALL OCCURS BETWEEN EACH LINE FEED» A 
CORRECTLY PERFORMED TEST WILL APPEAR AS OlASONAL LINE BETWEEN 
PRINT POSITION AND PRINT POSITION 72, 

RTN4 TAB TEST, ASR/KSRSS ONLY, CHECKS ABILITY OF TELEPRINTER TO TAB TO 
TO A TAB POSITION FROM 1 TO 7 POSITIONS AWAY FROM THE TABt 
THE FIRST LINE TYPED MARKS THE TAB POSITIONS, SUBSEQUENT 
LINES ARE THE ACTUAL TAB TEST, THE TYPEOUT LOOKS AS FOLLOWSl 
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RTNl 

niHk 

RTN? 

RTN10 

RTNll 

RTN12 

RTNll 

RTN14 

RTNIS 

RTNlfe 

RTNlf 

RTN20 

RTNll 

RTN22 

RTNi3 

RTN24 

RTNaS 

RTN16 

RTNIT 

RTN30 

RTN31 

RTN32 

RTN33 



RTN34 



TYPES 


LINE 


OF 


CHARACTERS 


ABC 


TYPES 


LINE 


OF 


CHARACTERS 


DEF 


TYPES 


LINE 


OF 


CHARACTERS 


6HI 


TYPES 


LINE 


OF 


CHARACTERS 


JKL 


TYPES 


LINE 


OF 


CHARACTERS 


MNO 


TYPES 


LINE 


OF 


CHARACTERS 


POR 


TYPES 


LINE 


OF 


CHARACTERS 


8TU 


TYPES 


LINE 


OF 


CHARACTERS 


VWX 


TYPES 


LINE 


OF 


CHARACTERS 


YZ0 


TYPES 


LINE 


OF 


CHARACTERS 


Hi 


TYPES 


LINE 


OF 


CHARACTERS 


456 


TYPES 


LINE 


OF 


CHARACTERS 


T8f 


TYPES 


LINE 


OF 


CHARACTERS 


l»# 


TYPES 


LINE 


OF 


CHARACTERS 


SX& 


TYPES 


LINE 


OF 


CHARACTERS 


•C) 


TYPES 


LINE 


OF 


CHARACTERS 




TYPES 


LINE 


OF 


CHARACTERS 




TYPES 


LINE 


OF 


CHARACTERS 


tl* 


TYPES 


LINE 


OF 


CHARACTERS 


■»•? 


TYPES 


LINE 


OF 


CHARACTERS 


• t\ 


TYPES 


LINE 


OF 


CHARACTERS 


]* AND LEFT ARROW 


TYPES 


2 LINES 


OF ALL CHARACTERS, FIRST LINE IS TYPED AT 



FULL SPEIDf SECOND LINE 18 TYPED WITH RANDOM STALLS. 
TYPES li LINES OP A8R33 WORST CASE PATTERN. EVERY OTHER 
LINE IS TYPED WITH RANDOM STALLS. THE ASR33 WORST CASE 
PATTERN IS '^W/W^ 

TYPES 12 LINES OF ASR35 WORST CASE PATTERN, EVERY OTHER 
LINE IS TYPED WITH RANDOM STALLS. THE ASR31 WORST CASE 
PATTERN IS ''(fCff 
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S08 S,4 PRG3 PROGRAM DESCRIPTION 

•ei — 

Sfl 

lis PRCS CHECKS FOR CORRECT PUNCH OPERATION, THE PROSRAN CONTAINS 3 

••# ROUTINES NUMSERED PROM Of TO 02, 

SIS 

••4 RTN0 PUNCHES 912 CHARACTERS OP SPECIAL BINARY COUNT PATTERN AT 

117 FULL SPEED, AND VERIFIES THE PUNCHEO DATA WITH THE 

IH PAPER TAPE READER. TEST IS DONE S TIMES, 

•le RTNt PUNCHES 912 CHARACTERS OF SPECIAL ilNARV COUNT PATTERN WITH 

SU RANDOM DURATION STALLS BETWEEN EACH CHARACTER PUNCHED, THE 

StI DATA PUNCHED IS VERIFIED WITH THE PAPER TAPE READER. THE 

SIS TEST IS DONE 5 TIMES, 
St4 

Stfl RTN2 PUNCHES 512 CHARACTERS OF SPECIAL BINARY COUNT PATTERN IN 

SU CROUPS OF RANDOM LENGTH (15 CHARACTERS MAXIMUM). AFTER EACH 

8J7 GROUP IS PUNCHED A RANDOM DURATION STALL OCCURS, THE DATA 

SU PUNCHED IS VERIFIED WITH THE PAPER TAPE READER. THE TEST 

SU IS DONE 5 TIMES. 
110 

ttl 6,9 PR84 PROGRAM DESCRIPTION 

III 

Bll 

514 PR64 IS USED TO TEST THE TELETYPE KEYBOARD, THE PROGRAM CONTAINS 

515 3 ROUTINES NUMBERED FROM 00 TO 02. 
Sift 

817 RTN0 TESTS THAT TELETYPE CONTROL RESPONDS WHEN USER DEPRESSES 

SIB A KEYBOARD KEY. 

SIS 

SSI RTNl ECHO TEST. THE TEST ECHOES ONTO THE TELEPRINTER THE CHARACTER 

SSI RECEIVED FROM THE KEYBOARD. WHEN THE TEST SENSES A RUBOUT 

SSI CHARACTER THE TEST IS ENDED, THE TEST ENABLES THE USER TO 

SS3 DETERMINE IF ALL PRINTABLE CODES CAN BE SUCCESSFULLY SENT 

8S4 TO THE TELETYPE CONTROL, 

•ss 

•SS RTNl OCTAL EQUIVALENT TEST, THE OCTAL EQUIVALENT OF ANY CHARACTER 

6S7 RECEIVED BY THE CONTROL IS TYPED, SENSING A RUBOUT ENDS THE 

SSB TEST, THIS TEST ENABLES THE USER TO DETERMINE THAT ALL CODES 

SS« INCLUDING NON-PRINTABLE CONTROL CODES ARE BEING CORRECTLY 

S«| SENT TO THE TELETYPE CONTROL. 
8«1 
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8,6 PRG5 PROGRAM DESCRIPTION 



PRE5 £KERCI8ES THE PAPER TAPE READER, PAPER TAPE PUNCH, AND THE 
TELEPRINTER IN COMBINATION, ITS PURPOSE IS TO SHOW UP ANY FAILURES 
THAT MAY OCCUR AS A RESULT OF INTERCACTION BETWEEN THE TELETYPE 
DEVICES AND THE PROCESSOR, 

PRB5 IS A CONTINUOUS RUNNING PROGRAM. DATA CODES 241 THROUGH 337 
ARE USED TO EXERCISE THE DEVICES. THE DATA IS OUTPUTTID TO THE 
PRINTER/PUNCH IN GROUPS OF 72 CHARACTERS PRECEDED BY CARRIAGE RETURN 
AND LINE FEED, ONE PROGRAM PASS CONSISTS OF 63 LINES FOLLOWED 
BY A BLANK LINE, THE DATA IS OUTPUTTEO SO THAT EVERY CHARACTER WILL 
HAVE PRINTED IN EVERY PRINT POSITION BY THE TIME ONE PROGRAM PASS 
HAS BEEN COMPLETED. 

THE PROGRAM WORKS IN THE INTERRUPT MODE, AND IS ARRANGED SO THAT 
THE PAPER TAPE READER WILL AT NO TIME BE MORE THAN 40 CHARACTERS 
BEHIND THE PUNCH (EXCLUDING INITIAL PUNCH TO READER SLACK.) 

NORMAL OPERATION IS WITH RANDOM STALLS, SR6 MAY BE SET TO A 1 TO 
RUN THE TEST AT FULL SPEED. 



8,7 PRG6 PROGRAM DESCRIPTION 



PR06 IS A CONTINUOUS RUNNING PROGRAM THAT EXERCISES THE PAPER TAPE 
READER USING A SPECIAL BINARY COUNT PATTERN TEST TAPE, THE PROGRAM 
STALLS RANDOMLY AFTER READING RANDOM LENGTH CHARACTER GROUPS 
(15 CHARACTERS MAXIMUM) AT FULL SPEED. SR8 MAY BE SET TO A 1 TO 
EXERCISE THE READER AT FULL SPEED. 

8.8 PR67 PROGRAM DESCRIPTION 



PR67 IS A PRINTER EXERCISER DESIGNED AS AN AID IN MAKING TELEPRINTER 
ADJUSTMENTS, THE PROQRAM PERMITS THE USER TO TYPE IN FIVE TEST CHARACTERS 
AND ONE FINAL CHARACTER THAT SIGNIFIES WHETHER FULL SPEED OR STALL 
OPERATION IS DESIRED. THE PROGRAM THEN TYPES LINES CONTAINING THE 
FIVE SELECTED CHARACTERS, WHIN THE USER WISHES TO CHANGE THE TEST 
CHARACTERS SR15 IS SET TO A 1, THE PR06RAM TERMINATES TYPING THE LINE 
BEFORE ACCEPTING NEW DATA, 

8,9 PR610 PROGRAM DESCRIPTION 



PRGIB IS A TAPE GENERATOR THAT PUNCHES OUT THE SPECIAL BINARY 
COUNT PATTERN CONTINUOUSLY. 
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8,10 PRGll PROSRAM DESCRIPTION 



PRSU IS USED AS AN AID IN ADJUSTING THE TELETYPE PUNCH CLOCK MITH 
THE AID OP A SCOPE. THE PROGRAM PERFORMS THE POLLOMING SEQUENCEt 

A, LOAD PUNCH BUFFER WITH ASCII CODE IN SR LEFT. 

B, DELAY NUMBER OF MILLISECONDS SET IN SR RIGHT. 

C, 60 TO STEP A. 

8,11 PR612 PROGRAM DESCRIPTION 



PRG18 IS USED AS AN AID IN ADJUSTING THE TELETYPE READER CLOCK, 
A SCOPE IS REQUIRED. THE PROGRAM PERFORMS THE FOLLOWING SEQUENCEl 

A, SET PUNCH MAINTENANCE BIT, 

B, LOAD PUNCH BUFFER WITH CODE IN SR LEFT, 

C, DELAY NUMBER OF MILLISECONDS SET IN SR RIGHT, 

D, MOVE CONTENTS OF READ BUFFER TO REGISTER 0. 

E, ISSUE 5 RESET INSTRUCTIONS TO "FIX" READ BUFFER CONTENTS IN 
RIGHT HALF OF DATA LIGHTS. 

F, GO TO STEP A. 

8.12 PR613 PROGRAM DESCRIPTION 



USING THE PUNCH MAINTENANCE BIT FEATURE. PRS13 TAKES THE ASCII CODE 
SET IN SR LEFT AND USES IT TO CHECK THE ABILITY OF THE CONTROL TO 
OUTPUT AND RECEIVE DATA. THE PROGRAM PERFORMS THE FOLLOWING SiaUENCEl 

A, SET PUNCH MAINTENANCE BIT, 

B, LOAD PUNCH BUFFER WITH CODE IN SR LEFT, 

C. WHEN READER DONE BIT SETS, COMPARE CODE IN SR LEFT WITH DATA 
IN READER BUFFER. HALT IF NOT SAME. 

D. WAIT FOR PUNCH DONE BIT TO SET AND 60 TO STEP B. 

8.14 PR614 PROGRAM DESCRIPTION 



USING THE PUNCH MAINTENANCE BIT FEATURE PR614 USES THE SPECIAL 
BINARY COUNT PATTERN TO CHECK ABILITY OF THE CONTROL TO OUTPUT 
AND RECEIVE DATA, THE PROGRAM PERFORMS THE FOLLOWING STEPS! 

A. INITIALIZE BINARY COUNT PATTERN, 

B. SET PUNCH MAINTENANCE BIT. 

C. LOAD PUNCH BUFFER WITH BINARY COUNT CHARACTER. 

D. WHEN READER DONE BIT SETS, COMPARE BINARY CHARACTER WITH DATA 
IN READ BUFFER. HALT IF NOT SAME, 

E. WAIT FOR PUNCH DONE BIT TO SET AND 60 TO STEP C. 

.ENDR 
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992 
995 
994 
998 
996 
997 
998 



000046 002062 



177776 
177776 
001200 
000240 



.AB8 

.LIST ME 

.NLI8T MOiMC 
ri>R60" COMBINED INPUToQUTPUT LOGIC TESTS. 
IPRGl- READER TEST. 
»PRG2» PRINTER TEST, 
IPRG3* PUNCH TEST. 
>PR04o KEYBOARD TEST. 
IPR68- COMBINED TEST. 

rPR66it READER EXERCISER. SPECIAL BINARY COUNT PATTERN. 
fPR07- PRINTER EXERCISER. 

;PRG10» SPECIAL BINARY COUNT PATTERN TAPE GENERATOR. 
PUNCH CLOCK ADJUSTMENT ROUTINE. 
READER CLOCK ADJUSTMENT ROUTINE. 
MAINTENANCE MODE SINGLE CHARACTER DATA TEST. 
MAINTENANCE MODE SPECIAL BINARY COUNT PATTERN DATA TEST. 



JPRBlt' 
IPR612* 
rPR8tS> 
IPR014* 
I 

fSTANDARD SR SWITCH OPTIONS (SWITCH SET TO A 1 } 
I 

- HALT AT END OP ROUTINE, 

• SCOPE, 

- INHIBIT ITERATION, 

• LOOP PROGRAM 

• SELECT ROUTINE. 
DISABLE STALL MODE AND RUN FULL SPEED. 

NUMBER OP ROUTINE TO BE SELECTED, 



rSR IS 

I8R 14 

I8R 11 

fSR 10 

fSR 9 
tSR 
I8R 



THROUGH SR 



m 




000000 


,«0 




978 


008000 


000002 


,♦2 


;UNASSI8NE0 TRAP 


974 


000002 


000000 


HALT 




978 


000004 


000006 


MACHERI ,t2 


ISP OVERFLOW. BUS ERROR TRAP 


976 


000006 


000000 


HALT 




977 


080010 


000012 


.♦2 


{RESERVED INSTRUCTION TRAP 


978 


000012 


000080 


HALT 




979 


000014 


000016 


.♦2 


ITRACE TRAP 


980 


880016 


000000 


HALT 




981 


000020 


000022 


.♦2 


ITRAP TO CALL lOX 


982 


008022 


000000 


HALT 




985 


000024 


000086 


»*2 


rPOWER FAIL TRAP 


984 


880026 


000000 


HALT 




988 


880050 


002170 


EMTINT 


lEMT TRAP 


986 


000012 


000340 


PRTY7 




987 


000034 


003344 


DLYX 


fTRAP TRAP, SIMILAR TO EMT 


988 


000056 


000540 


PRTY7 




989 






ILOC 40 THROUGH 776 


ARE FILLED WITH ,♦2 AND HALT, 


990 










991 




000046 


."46 





lOGIC 

IIQUATI $T4TlMiNTS 
CC«177TT6 

NOFiig40 



ISET TO ADDRESS OF ^tl II HOOKS 



V 



OZKLAE 

liil 
tits 
tiis 

tii4 
10iS 

tilft 
lee? 
tefi 

til4 

leie 
leil 
sill 

litS 
Iil4 

lilt 
lill 
lit? 
lets 
liif 
leie 
teis 

lilS 
1013 
1014 

i0as 
101* 

101? 
1011 
1019 
1030 
1031 
1031 
1033 
1034 
10SS 
1036 
1037 
1031 
103f 
1040 
1041 
104a 
1043 
1044 
104S 
1046 
1047 
1040 
1049 
1050 
1051 
1058 



MACYll i7CiiS7) |f«10V»T5 14106 FASE 23 



000000 

100000 
000000 
000006 
000007 
100000 
040000 
010000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 
005726 
022626 
000340 
000300 
000240 
000200 
000140 



000040 
000000 
000000 
104400 

000007 

015142 

015144 

015254 

015265 

015256 

015267 

015366 

015377 

177777 

177777 

177777 

177777 

177777 

000174 
000174 177570 
000176 000000 

000200 
000200 012706 001200 
000204 016746 177576 
000210 016746 177570 



SQFTSRf 



OPEN»0 

MANUALiBlTiS 

R0«%0 
R6«%6 
PCmtf 

iIT15»100000 

BIT14«40000 

SIT13920000 

BSTI2910000 

BIT||«4000 

BIT10B2000 

BIT991000 

B1T6B400 

BIT7«a00 

BIT6PI00 

BIT5«40 

BIT4>20 

BIT3B10 

BIT2«i4 

BITim 

8IT0il 

P0PSPii5726 

f^OPSP2«022626 

PRTY7P340 

PRT76P300 

PRT¥5»240 

PRT¥4ii200 

PRT¥3il40 

FRTy2«100 

FRTYl«40 

EMTXP0 

DiLAYXiTRAP*0 

Beu«007 

BLOCKA-OEND 

BL0CKl9BL0CKAt2 

BI.0eKB«BI.0CKA#U2 

BL.f<BBiiSlOCKA#|23 

BL0CK2iiBL0CKA«lt4 

BU2PBi.0CKA<«^125 

B10CKC«BI.QC:KA#224 

BIKCC«BUQCKA#235 

P0TIST»*1 

PITLSTpwI 

P2TLSTi»i 

P3TU8TP-1 

P4TL8T»«l 

I.W174 

177570 



IPOP THE STACK, SAME AS TST C6H 

IPOP STACK TWICE. SAME AS CMP C6}*#C6J* 

fPRIORITT LEVEL DEPINITIONS 



»P200 

MOV iSP80TiX6 

MOV 6,<p(SP) 

MOV 4,*CSP5 



ISET BOTTOM OF THE STACK 

fSAVE CURRENT VECTOR 





MACY 1 1 


27 C6573 


1 7wN0Vw 


7§ 14196 


14 




















1 S93 


fiinisi 9 1 h 
rStSVSi if 


9 1 2767 


99S§90 


177561 






wl8| 4 


i 054 


903SS2 


003777 


177746 






TST 


^SRPTR 


1 0SS 
















I0S6 


900226 










_ 

BR 


bS 


I0ST 




012767 


0S0176 


177736 


111 


MOV 


wSQr 1 an f Qnrjn 


1 098 
















1 ems 


000236 


022626 








CMP 


i6j*» (ij* 


101)0 


000240 


012667 


177149 




iSI 


MOV 


C6) 4>f 4 


I06| 


BBBs44 


012667 


1775S6 






MOV 


(6}4>|6 


1062 


900230 


000167 


001S34 






JMP 


START 


1063 




001210 








■*1210 




1064 


901210 


177360 






TKII 


177569 




I06S 


001212 


177562 






TKBl 


177562 




1066 


001214 


177564 






TP8I 


177364 




1067 


001216 


177566 






TPBi 


177566 




1066 


001220 


000060 






TKVTRl 


69 




1069 


001222 


000200 






TKLVLI 


PRTy4 




10?0 


001224 


000064 






TPVTRl 


64 




1071 


001226 


000200 






TPLVLI 


PRTY4 




1072 


001230 


000090 






TTYTYPI 


OPf N 




1073 


001232 


BBBBBB 






PR6NUMI 


OPIN 




1074 


001234 


000000 






K8TARTI 


OPtN 




1075 


001236 


BBBBBB 






CURTSTI 


OPEN 




1076 


AM I 3/101 


BBBBBB 






RTNNOl 


OPEN 




1077 


001242 


000000 






NXTSTI 


OPEN 




1078 




BBBBBB 






ZCTRI 


OPEN 




1079 


001246 


000000 






8C0PTRI 


OPEN 




1060 


001 250 


AAAA AA 

BBBBBB 






PRGIDl 


OPEN 




1061 


001252 


BBS} 4<l 






PRGTABI 


PR69 




1063 


00 1 254 


007652 








PRBl 




1063 


001256 


010026 








PRC2 




1064 


001260 


01 1462 








PRS3 




1065 


001262 


012110 








PRG4 




1086 


001264 


012410 








PRG5 




1087 


001266 


013370 








PRS6 




1086 


001270 


01 3454 








PRG7 




1089 


001272 


013626 








PRG10 




1 090 


001274 


01 3662 








PRGl 1 




1091 


001276 


013672 








PR612 




1 092 


00 1300 


013762 








PRG13 




1093 


001302 


B 1 40 J4 








PRG14 




1094 


001 J}0(| 








EMTTABI 






1095 


ntn i In/t 
001304 


002666 








TtP 




1 096 


00 1 306 














1 097 












8TAL 




1096 


001312 


001466 








ERR 




1099 


001314 


001446 








DTCHK 




1100 


001316 


001422 








CHUT 




1101 


001320 


002414 








8TU8RV 




1102 


001322 


002444 








8TL3PV 




1103 


001324 


001434 








EHLT 




1104 


001326 


002474 








8RSETT 




1105 


001330 


001754 








CHAZNN 




1106 


001332 


002210 








CMK33 





fSET UP TSHg OUT VICTOR 

I TRY TO REfgRiNei TNI, 

IMAROHARB SWITCH REOZSTBR 

IBRANCH IP NO T!Mi OUT TRAP OSeURRS 

ICHANQC THE SMXTCH RE0X8TIR POINTER 

ITO POINT TO A SOFTWARE SWITCH REGISTER 

IRESTORE THE STACK 

IRE8T0RE TIME OUT VECTOR 

160 TO START OF PROGRAM, 

LSR C8R 

LSR BUFFER 

USP C8R 

USP BUFFER 

LSR INTERRUPT VECTOR 

U8R PRIORITY LEVEL 

L8P INTERRUPT VECTOR 

LSP PRIORITY LEVEL 

CONTAINS CURRENT PROGRAM* 

CURRENT PROGRAM START ADDRESS. 

CONTAINS ADDR OF CURRENT TEST, 

CONTAINS CURRENT TEST 

CONTAINS ADDR OF NEXT TEST. 

CONTAINS CURRENT ITERATION COUNT 

CONTAINS CURRENT SCOPE POINTER. 

CONTAINS PROGRAM INDICATORS 

PRG0 START ADDRESS 

PRGl START ADDRESS 

PR02 START ADDRESS 

PRG3 START ADDRESS 

PR64 START ADDRESS 

PRCS START ADDRESS 

PRG6 START ADDRESS 

PR67 START ADDRESS 

PRG10 START ADDRESS 

PRGU START ADDRESS 

PR612 START ADDRESS 

PRG13 START ADDRESS 

PRG14 START ADDRESS 



POINTER 
POINTER 
POINTER 
POINTER 
POINTER 
POINTER 
POINTER 
POINTER 
POINTER 
POINTER 
POINTER 
POINTER 



FOR EMT 
FOR EMT 
FOR EMT 
FOR EMT 
FOR EMT 
FOR EMT 
FOR EMT 
FOR EMT 
FOR EMT 
FOR EMT 
FOR EMT 
FOR EMT 



CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 



TYPE 

TYPES 

STALL 

ERROR 

DATCMK 

CHALT 

STRDRV 

STPCHV 

EHALT 

SRE8ET 

SCOPE 

CK33 



.MAIN, 


MACYU 


27(657) 


17«N0V« 


75 1410 


6 PAGE 


25 






DZKLAE 


















1107 


001334 


002226 








CHK35 




IPOINTER FOR EMT CALL CK35 


1108 


001336 


002224 








CHKS3B 




IPOINTER FOR EMT CALL CKS7 


1109 


001340 


004574 








TYPL3 




IPOINTER FOR EMT CALL TYPLN3 


1110 


001342 


001456 








OTHLT 




IPOINTER FOR EMT CALL OATHLT 


1111 


001344 


002264 








SAVRG 




IPOINTER FOR EMT CALL SAVREG 


1112 


001346 


002324 








RSTR6 




IPOINTER FOR EMT CALL RSTREG 


1113 


001350 


002240 








CKASR 




IPOINTER FOR EMT CALL CHKASR 


1114 


001352 


002512 








RSETT2 




IPOINTER FOR EMT CALL RESET2 


1115 


001354 


003046 








DLY 




IPOINTER FOR EMT CALL DELAY 


1116 


001356 


003206 








RDLY 




IPOINTER FOR EMT CALL RDELAY 


1117 


001360 


003306 








R8TAL 




IPOINTER FOR EMT CALL R8TALL 


1118 


001362 


000000 






RCNTI 


OPEN 




ICHARACTER COUNT 


1119 


001364 


000000 






CRBUFI 


OPEN 




IHOLDS ONE CHARACTER FROM READER. 


1120 


001366 


000000 






CHRll 


OPEN 






1121 


001370 


000000 






CHR2I 


OPEN 






1122 


001372 


000000 






CHR3i 


OPEN 






1123 


001374 


000000 






CHRIAI 


OPEN 






1124 


001376 


000000 






CNR2AI 


OPEN 






1125 


001400 


000000 






CHR3AI 


OPEN 






1126 


001402 


000000 






ERCTRI 


OPEN 






1127 


001404 


000000 






CTRAI 


OPEN 






1128 


001406 


000000 






CTRBI 


OPEN 






1129 


001410 


000000 






CTRCI 


OPEN 






1130 


00H12 


000090 






CTROI 


OPEN 






1131 


001414 


000000 






BRCTRi 


OPEN 






1132 


001416 


000000 






DVDNOl 


OPEN 






1133 


001420 


000000 






OVQUOTI 


OPEN 






1134 










ICOMMON 


HALT ROUTINE 




1135 


001422 


011600 






CHLTI 


MOV 


6X6, X9 


IDEVELOP ADDRESS OF CALLER. 


1136 


001424 


162700 


999992 






SUB 


• 2,X0 




1137 


001430 


000000 








HALT 




IHALT, ADDRESS OF CALL INSTRUCTION 


1136 


001432 


000002 








RTI 




IIN DATA LIGHTS. 


1139 










lUNCONDlTlONAL 


ERROR HALT ROUTINE. 


1140 


001434 


011600 






EHLTI 


MOV 


•X6|X0 


IDEVELOP ADDRESS OF CALLER. 


IHl 


001436 


162700 


999992 






SUB 


«ii80 




1142 


001442 


000090 








HALT 




IHALT, ADDR OF ERROR CALL 


1143 


001444 


000002 








RTI 




IIN DATA LIGHTS, 


1144 










IDATA CHECK ROUTINE. 




1145 


001446 


126767 


177712 


177711 


DTCHKI 


CMPB 


CRBUF,CRBUF«1 


ICOMPARE EXPECTED AND RECEIVED 


1H6 


001454 


001403 








BEQ 


DTCHKA 


ICHARS. BRANCH IF SAME. 


1147 


001456 


016700 


177792 




DTHI.TI 


MOV 


CRBUF,X9 


IMOVE S/B AND WAS CHARS TO R9. 


11«8 


001462 


000000 








HALT 




IDATA ERROR HALT, GOOD CHAR IN 


1149 
















IDATA LIGHTS LEFT, BAD CHAR IN DATA 


1150 


001464 


000002 






DTCHKAI 


RTI 




ILIGHTS RIGHT, EXIT, 


1131 










ICONDITIONAL ERROR HALT. 




11S2 


001466 


032777 


940999 


176599 


ERRI 


BIT 


iBITl4,#8RPTR 


ISCOPE SWITCH SETT 


1153 


001474 


001004 








BNE 


ERRA 


IBR IF YES, 


1154 


001476 


011600 








MOV 


6X6fX9 


IDEVELOP CALLER'S ADDRESS, 


1155 


001590 


162799 


000992 






SUB 


• SfS9 




1156 


001504 


000099 








HALT 




lERROR HALT, 


1157 


001506 


999992 






ERRAI 


RTI 




lEXIT, 


1158 










IROUTINE END HALT SUBROUTINE. 




1159 


001510 


032777 


199999 


176456 


SHALTt 


BIT 


iBIT19,*SRPTR 


IHALT AT END OF TESTf 


1160 


001516 


001493 








BEQ 


SHLTA 


IBR IF NOT, 



aMAINs MACYll ifCiSf) l7»NQV»fS S<lii& PhM §1 
OZKLAC 

ii&i sei3§i ii67ee i77§i4 Msva pitnno^ss fCu^fieNT test $ tq ii§» 

u&§ ieiSiA sei0S0 halt iROUTiNg end hauTs 

ii^i istsis iissi? shutai hts i? iiksTs 



.MAIN, 


MACYU 


27(6573 


17«N0V« 


75 1410 


6 PACE 


27 




DZKLAE 
















ilbli 


001530 


012706 


001200 




STARTI 


MOV 


fSPB0T,%6 


Ub5 


001534 


005067 


176236 






CLR 


Paw 


U66 


001540 


012767 


000006 


176236 




MOV 


•6,MACHER 


U67 


001546 


005067 


177466 






CLR 


RTNNO 


il6e 


001532 


005737 


000042 






T8T 


#•42 


1169 


001556 


001404 








6EQ 


IS 


1170 


001560 


004767 


001616 






JSR 


PCTIMCAL 


U7i 


001564 


000167 


012244 






JHP 


PRG14 


U72 


001570 


017700 


176400 




ISI 


MOV 


#SRPTR,X0 


1173 


001574 


042700 


177760 






BXC 


#177760, X0 


1174 


001600 


020027 


000014 






CMP 


X0,«14 


1175 


001604 


101402 








BIOS 


CRTA 


1176 


001606 


104010 






XNCPR6I 


EHALT 




U77 


001610 


000747 








BR 


START 


U78 


001612 


005067 


177432 




CRTAt 


CIR 


PRGID 


1179 


001616 


010067 


177410 






MOV 


XOfPRGNUM 


1180 


001622 


001404 








BEQ 


CRTB 


il8l 


001624 


004767 


001S52 






JSR 


PCiTIMCAL 


11B2 


001630 


016700 


177376 






MOV 


PRGNUMf X0 


1183 


001634 


000241 






CRTSI 


CLC 




1184 


001636 


006100 








RQL 


X0 


U85 


001640 


000170 


001252 






JMP 


#PRGTAB(0) 


1166 


001644 


104005 






SRSETI 


CHALT 




1187 


001646 


016767 


177362 


177366 


GETROYI 


MOV 


KSTARTiNXTST 


1183 


001654 


012767 


000006 


176122 


CUEANt 


MOV 


#6|MACHER 


1189 


001662 


012706 


001200 






MOV 


•8PB0T,X6 


1190 


001666 


104400 








OELAYX 




U9i 


001670 


104011 








SRE8ET 




1192 


001672 


005067 


176100 






cm 


PSW 


1193 


001676 


004767 


000210 




GTRDYAI 


J3R 


X7,F0RW0 


1194 


001702 


032777 


001000 


176264 


CTROYBI 


BIT 


#BXT9,#SRPTR 


1195 


001710 


001002 








BNE 


GTROYC 


1196 


001712 


000177 


177320 






JMP 


•CURTST 


1197 


001716 


017700 


1762S2 




QTROYCI 


MOV 


#8RPTR,X0 


U9S 


001722 


042700 


177600 






BZC 


#177600, X0 


1199 


001726 


126700 


177306 






CMPB 


RTNNO, X0 


1200 


001732 


001002 








BNE 


GTRDYD 


1201 


001734 


000177 


177276 






JMP 


»CURT8T 


1202 


001740 


022767 


177777 


177274 


gtroyoi 


CMP 


••UNXTST 


12133 


001746 


001353 








BNE 


BTROYA 


1204 


001750 


104010 






INCRTNI 


EHALT 




1205 


001752 


000735 








BR 


GETRDY 


1206 


001754 


012706 


001200 




CHAXNNI 


MOV 


•SPBOTiRI 


1207 


001760 


032777 


040000 


176206 




BIT 


#BXT14,#8RPTR 


1208 


001766 


001406 








BEQ 


CHNA 


1209 


001770 


022767 


177777 


177250 




CMP 


#-lf 8CQPTR 


1210 


001776 


001402 








BEQ 


CHNA 


I2U 


002000 


090177 


177242 






JMP 


*SCOPTR 


1212 


002004 


032777 


004000 


176162 


CHNAl 


BIT 


#iZTlli#8RPTR 


1213 


002012 


00100S 








BNE 


CHNAA 


1214 


0020H 


003367 


177224 






DEC 


XCTR 


1215 


002020 


001402 








BEQ 


CHNAA 


1216 


002022 


000177 


177220 






JHP 


•8C0PTR 


1217 


002026 


004767 


177416 




CHNAAI 


JSR 


%7, SHALT 



;SET BOTTOM OF SP STACK, 



ICHAXN OR AUTOoACCEPTANCET 
IBR IF NOT, 

ICALIBRATE DELAY ROUTINE, 
180 RUN PR614, 

I (#8RPTR) TO R0 
ILIMIT C8R) TO BITS 3»0 
ICOMPARE (SR) TO PROGRAM LIMIT 
fVALZD PROGRAM NUMBER? 
|N0. INCORRECT PRG NUMBER 
ISTART OVER. 

rSAVE PROGRAM NUMBER AT PRGNUM 
IBR IF 0, 

ICALZBRATE DELAY ROUTINE. 
IPRGNUM BACK TO R0. 

|R0)(2 

f GO TO SELECTED PROGRAM. 

ISET SR OPTIONS DESIRED 

f ADDR OF 1ST ROUTINE TO NXT8T 

IRESET MACHER TRAP, 

ISET UP BOTTOM OF STACK. 



IROLL FORWARD TO "NEXT" ROUTINE. 

ISELECT ROUTINE SWITCH SETT 

IBRANCH IF YES. 

IRUN CURRENT ROUTINE, 

I (#SRPTR) TO R0 

IMA8K UNDE8IRED BITS 

ICOMPARE RTNNO TO (RB) 

IBRANCH IF ROUTINE NOT FOUND YET 

160 RUN ROUTINE. 

INO. CHECK FOR LAST ROUTINE. 

ILAST ROUTINE? 

I YES, INCORRECT ROUTINE SELICTCO 

ISTART OVER. 

IRESBT STACK. 

ISCOPE? 

IBR IF NOT, 

IVES. SCOPE POINTER ■ -It 
IBRANCH IF SCOPE ENTRY IS 
IRETURN TO ROUTINE. 
IINHIBIT ITERATION? 
IBR IF YiS, 
INO. ICTR i? 
IBR IF YES, 

INO, RETURN TO TEST ROUTINE 
100 HALT IF HALT SWITCH IS SET 







IT C63T5 




7S UiSfe ^Aii 


ti 
























ISIS 




011??? 


iiliii 


If 


SHNi 1 


8IT 




" ' , ' '1 * s f 




ig|i#s 


iiisil 








mm 






igi@ 






IflTf? 


1 ?? 1 11 






#«| iH^ f$1 


f =4 Lf 4. U ^. 4 * ( 4> t ■ ^ 


llil 


@@§@§i 


i@i3ii 








INI 


CUiAN 




1212 


@02@i2 


013700 


§00042 




CI 


HOV 


#@4iiR@ 


|@iT eONTlNTi Of 


1213 


0020S6 


001407 








BEQ 


HIRE 


f@R IF 09 


1214 


001060 


000005 








RiSET 






1215 


§01062 


004710 






UOG ^ C i 


JSR 


PC» C03 


IRETU^N TO HONITOig 


1 236 


002064 


000340 


000240 






3 WORD 


NQPyNOPf NOP 




1 227 


002072 


900167 


011736 






JHP 


F^@14 


filTUHN TO PR^Hs 


1 gig 


002076 


032777 


si§@§@ 


1 7 ©il7@ 


Hgwi ! 


SIT 


#8|TSS« #S8FT^ 




1229 


002104 


001260 








SNE 


SITROY 


liR W VIS. 


1230 


002106 


003000 








HALT 




iPROgiAM END H&LTs 


||3| 


0011 10 


0006S6 








BR 


SiTROY 


|Si§f 4©<f ^ 


1232 


0021 12 


016705 


177124 




^ S i.l f1 B 


HOV 


NMTiT# Sf 


f^VUn Mr rigaAi nwyiArlK IW ^^S^ 


1233 


0021 1 6 


012567 


1771 16 






MOV 


C§3<^#RTNN0 


}6iT NEKT ROUTINE NUHSgRa 


1234 


002122 


012567 


177114 






MOV 


CS5 *|NXTST 


fGiT &ODR QF HElf s^NiM?" ifiUTlNt. 


123S 


002126 


103767 


177116 






TSTB 


PR6I0 




1236 


002132 


1 00407 








BMI 


FORMDB 




i 237 


002134 


012567 


177104 






MOV 


£55 ICTR 




1238 


002140 


012567 


177102 






MOV 


CS3*»SC0PTR 


IGET SCOPE UOOP ENTRY POlNTiRs 


1239 


002144 


010567 


177066 






MOV 


ig^CURTST 


lADDR OF NOW CURRENT TEST TO CURTST« 


1240 


002150 


000207 








RTS 


X7 


lEXIT FORWD SUBROUTINi, 


1241 


002152 


012767 


177777 


___ 
1 77066 


FORWDBI 


MOV 


#»1 1 SCOPTR 


IFORCE "NO SCOPE* 


1242 


002160 


012767 


000031 


i 77056 




MOV 


#1 f ICTR 


IFORCE 1 COUNT OF 1 


1243 


002166 


000766 








BR 


FORWDA 




1244 












ROUTINE, 




1245 


0021 70 


010046 






EMTINTI 


MOV 


R0,-C63 


IPUSH R0, 


1246 


0021 72 


016600 


000002 






MOV 


2C6) fR0 


IGET EMT PC, 


1247 


002176 


014000 








MOV 


«£0) ,R0 


IGET EMT CALL, 


1248 


002200 


006300 








A5L 


R0 


ITIMES 2, 


1249 


002202 


1 6000 


171304 






MOV 


EMTTAB«10000C2 


)3 ,R0 lOEVELOP EMT AOOR, 


1230 


002206 


000200 








RTS 


R0 


IQO TO EMT RTN, RESTORE R0. 


12S1 










IROUTINSS TO DETERMINE TTT TYPES, 


1232 


002210 


03S767 


000001 


* 


CHK33I 


BIT 


»i,TTYTYP 


ICHECK FOR 33 


12S3 


002216 


001002 








BNE 


CHK33B 


IBR IF NOT 33. 


1254 


002220 


062716 


000002 




CHK33AI 


ADD 


#2, £6) 


ISET UP 33 EXIT. 


1255 


002224 


000002 






CHK33Bt 


RTI 




lEXIT, 


1256 


002226 


032767 


000001 


1 76774 


CHK35I 


BIT 


#1,TTYTYP 


ICHECK FOR 35, 


1257 


002234 


001371 








BNE 


CHK33A 


IBR IF 35, 


1238 


002236 


000002 








RTI 




INOT 35, 


1259 


002240 


032767 


000010 


1 76762 


CKASRI 


BIT 


«BIT3,TTYTYP 


ICHECK FOR A8R TTY, 


1260 


002246 


001001 








BNE 




IBRANCH IF NOT A3R. 


1261 


002250 


000002 








RTI 




lASR, EXIT, 


1262 


002232 


022626 








P0PSP2 




IPOP STACK TWICE. 


1263 


002254 


012767 


000001 


176762 




MOV 


#l,ICTR 


IFORCE I COUNT TO A 1. 


1264 


002262 


104012 








SCOPE 




ISCOPE TO BYPASS ROUTINE, 


1265 










ISAVE REGS TO 


4 SUBROUTINE, 




1266 


002264 


012667 


000030 




SAVRGi 


MOV 


C6)*,SVRPC 


iSAVE PC AND PSW, 


1267 


002270 


012667 


000026 






MOV 


C6)*,3VRPSW 




1268 


002274 


010446 








MOV 


X4,»»C63 


ISAVE REGS « 4 


1269 


002276 


010346 








MOV 


%3,-C6j 


UN STACK, 


1270 


002300 


010246 








MOV 


%2,«£63 




1271 


002302 


010146 








MOV 


SI, '■£63 






MACYl I 


27 (657) 




75 14106 PAGE 


29 






OZKLAE 


















1272 


002304 


010046 








MOV 


X0,«£63 




1273 


002306 


016746 


000010 






MOV 


SVRP3Wi"£63 


IRESTORE PC AND PSW, 


1274 


002312 


016746 


000002 






MOV 


8VRPC,B'(6) 




1275 


002316 


000002 








RTI 




lEXIT, 


1276 


002320 


000000 






5VRPCI 


OPEN 






1277 


002322 


000000 






SVRPSWI 


OPEN 






1278 










IRESTORE RES8 


TO 4 SUBROUTINE, 


1279 


002324 


012667 


000030 




RSTRGI 


MOV 


£63*»RSTPC 


ISAVE PC AND PSW, 


1260 


002330 


012667 


000026 






MOV 


C63*»R8TPSW 




1281 


002334 


012600 








MOV 


£63*iX0 


IRESTORE REGS 4 


1282 


002336 


012601 








MOV 


C63*»%1 


IFROM STACK, 


1283 


002340 


012602 








MOV 






1284 


002342 


012603 








MOV 


C63+,X3 




1285 


002344 


012604 








MOV 


£63^»X4 




1286 


002346 


016746 


000010 






MOV 


R8TP3W>m£63 


IRESTORE PC AND PSW. 


1287 


002352 


016746 


000002 






MOV 


R8TPC,»£63 




1286 


002356 


000002 








RTI 




lEXIT 


1289 


002360 


000000 






RSTPCI 


OPEN 






1290 


002362 


000000 






RSTP3WI 


OPEN 






1291 










IROUTINE TO FETCH A CHARACTER 




1292 


002364 


012767 


00031 


177022 


AREADI 


MOV 


#200,iBRCTR 


ISET UP DELAY COUNT, 


1293 


002372 


005277 


176612 






INC 


#TK8 


lENABLE READER. 


1294 


002376 


1 04400 








DEL.AYX 




IWAIT, 


1 295 


002400 


105777 


176604 






TSTB 


#TKS 


IDONE SET? 


1296 


002404 


1 00402 








BMI 


ARDB 


IBR IF YES, 


1297 


002406 


104010 








EHAUT 




lERROR. NO RESPONSE FROM READER. 


1298 


002410 


000765 








BR 


AREAO 


ITRY AGAIN. 


1299 


002412 


000207 






ARDBI 


RTS 


X7 


lEXIT 


1300 










IROUTINE TO SET 


LSR INTERRUPT 


VECTOR AND PRIORITY 


1301 


002414 


017667 


000000 


000012 


STtSRVI 


MOV 


*£63»STPRA*2 


IMOVE VECTOR ADDR TO STPRA«| 


1302 


002422 


062716 


000002 






ADD 


#2,#X6 


ISET UP EXIT 


1303 


002426 


016701 


176566 






MOV 


TKVTR,X1 




1304 


002432 


012721 


000000 




STFRAI 


MOV 


•OPEN, £13* 


ISET VECTOR ADDRESS 


1305 


002436 


016721 


176560 






MOV 


TKLVLi £13* 


ISET PRIORITY 


1306 


002442 


000002 








RTI 




lEXIT 


1307 










IROUTINE TO SET 


ISP INTERRUPT 


VECTOR AND PRIORITY, 


1308 


002444 


017667 


000000 


000012 


STUSPVI 


MOV 


»£63 #STPPA*2 


IMOVE VECTOR ADDR TO STPPA«2 


1309 


00S452 


062716 


000002 






ADD 


#2,#X6 


ISET UP EXIT 


1310 


002456 


016701 


I76S42 






MOV 


TPVTR,X1 




1311 


002462 


012721 


000000 




3TPPAI 


MOV 


fSlOPEN, £13* 


ISET VECTOR ADDRESS, 


1312 


002466 


016721 


176534 






MOV 


TPLVl, £13* 


ISET PRIORITY 


1313 


002472 


000002 








RTI 




lEXIT. 


1314 










IROUTINE TO ISSUE RESET, 




1315 


002474 


012700 


052525 




SRSETTI 


MOV 


•52525, X0 


IDATA TO R0, 


1316 


002500 


005100 








COM 


X0 


ICOMPLEMENT £R03. 


1317 


002502 


010067 


177770 






MOV 


X0,8RSETT*2 


l£R03 TO SR8ETT+8, 


13U 


002506 


000005 








RESET 




IISSUE RESET, (R03 IS 


1319 


002510 


000002 








RTI 




IDISPLAYED, EXIT. 


1320 










IDOUBUE 


RESET SUBROUTINE. 




1321 


002512 


104011 






R3ETT2I 


SRESET 






1322 


002514 


104011 








SRE8ET 






1323 


002516 


000002 








RTI 




lEXIT, 


1324 










IRANOOH 


NUMBER 


SENERATOR, ROUTINE EXITS WITH NUMBER IN REGISTER 0. 


1325 


002520 


016700 


000042 




RNOENI 


MOV 


RP1,X0 









S f l®3 f J 




15 HiS6 Fj^@f 


























Ills 




Wvw i 1911 














lis? 


i@lSi6 












8i 




|3iS 




@§6?90 


39 81 SI a) ji^ 






ADD 






131^ 


@8|S36 


at 0I@l4f 
H • 19 w@ r 


13@4B 8J & » 














§101989(11 


Eli9@ 1 »» 








RQta 






1331 




B0w} 139 










SB 








96S7§@ 


gS§§i0 






ADD 


RP3» %@ 




i 333 




na&t 4 aa 








ROU 


%& 




1 336 




1 90 








ROL 


80 




4 %%a 
i 3413 




Ci 4 

B } hBo r 


HDB0 1 








%0 1 RPS 
















MOV 


RP 1 f %0 




4 J5 1 




00«eH r 








^ J® 


%J 


1 CX XT 1 NUnOcK in nm 


133S 




30 1233 






RP*! 1 


IfiSS 






1 33^ 




00761S 






RP2I 


7622 






1 360 


@0S37S 










9TR0HV 




fSET REAQEn VICTOR 


1361 


0SS576 


00gB Je 








BREADS 




|Tu BREADB 


1 36g 


00S376 




0001 1 


176606 




BIS 




BSki4Bftisp laQ 4ktn 
IcNASLc uoK AND Ls^ls 


1 363 




1 0*V0S^I 








DEl,A Y 




IanAZT iNTERSfUFTs 


1364 


a fli SI & ffl iSL 


Msm 9 4 01 
0B0310 








200 9 






S 36S 






* 






CUR 


TKa 




1 366 


0036 1 6 


i A fit 4 fS 
|04}010 








EHAUT 




|N0 RE8P0NSE HALTs 


1367 


00261 6 


000763 








BR 


BREAD 


r9BU 4|I^A7tl 

ITRY ABASNg 














P0P8P2 






1 3*»9 




117 7 67 


tk%ka 


176336 




MOVB 


a7l#B >*SBI Iff 


t tj it B iac4n vth i^nsiiis? 
ICMAR Rc»u TP CnoUFs 


i 3S0 




00Be07 








R78 


%7 


tS'V79 @ 1 1 Sla^l l'9 9 LISP 

I&aIT SUOnuUTXNKa 


I35i 


01 la 3 & '3 9 


00S077 


176332 




SRE^DSl 


CUR 


#TK8 


fCLEAR L8R SNTIRRUPT iNAiLis 


i 3S2 


wkDcO JO 




176366 






T3TB 


iTKS 


ITEST FOR DQNEa 


1 333 


luwcS w**!: 


4 OICIOIOI^ 
1 01000 J 








BPL 


BREAOC 


^BRANCH IF DONE NOT SET, 


i 356 


CI (X 3 U /I 




aiitsa&,30i 






MOV 


#BREADA,#%6 


IMODIPY INTERRUPT EXIT TO BREADA, 




002630 


000001: 








RTl 




lOK, EKIT INTERRUPT, 


1 33o 


002^32 


000B»0 






iREADCl 


MALT 




IHALT, DONE BIT NOT SIT AFTER INTERRUPTg 


1 337 


n ffl S /I 


012716 


OI0I3&I&3 

00soOe 






MOV 


«BREADOf C6) 


IPOINT TO BREADD, 


1333 




00000c 








RTX 




lEXIT INTERRUPT. 


1 339 


002662 


022626 






BREADDt 


P0P8P2 






S 360 


ffl a & ^ /i 


fn r3i 01 9 /I 9 








BR 


BREAD 


ITRY AGAIN, 












ISUBROUTINE TO 


OUTPUT ASCII MESSAGE ON TELETYPE PRINTER, 


1 363 


Kl V 4m w Q Q 


IS 4 1 B we) 








MOV 


•X6»X0 


IGET ADDRESS THAT CONTAINS MESSAGE ADDRESS 


1363 


hIuCw r V3 


0627 1 6 


nnnnei 9 

l0lwl0!j7IOS 






ADD 


#Si»%6 


ISET UP EXIT, 


1 366 


SbkIsSw r >f 


01 4 4 01 0101 
011 000 








MOV 


#X0,X0 


rADDRESS OF MESSAGE TO R@a 


1 365 


002676 


1 1 2067 


aan 4 4 a 
i0lo» 4 4 VO 




TYPAI 


MOVB 


C0J*,TYPDAT 


fGET CHARACTER 


1366 


19 IOC r lac 






000102 




CMPB 


#100,TYPDAT 


ICHECK FOR"#»CHARACTER 


1 367 


0027 10 


AO) 4 

%Jv 4 lu VMf 








BNE 


TYPC 


IBRANCH IF NOT"#", 


1 368 


0027 1 2 


1 06026 








DELAY 




IWAIT 100 MSECS, 


1369 


0027 1 6 


000 166 








100, 






1370 




^flC VK/ 








RTI 




ITERMINATOR CHAR. DONE. EXIT, 


1371 


002720 


122767 


000063 


000066 


TyPCI 


CMPB 


#63#TYP0AT 


ICHECK FORnX", 


1372 


002726 


001616 








BEQ 


TYPF 


IBRANCH IF"X" 


1373 


002730 


122767 


000063 


000036 




CMPB 


»63,TYPDAT 


iNOTn", CHECK FOR"#», 


1376 


002736 


001617 








BEQ 


TYPG 


IBRANCH IF "#» 


1375 


002760 


00^767 


000002 






JSR 


X7,TYPD 


ITYPE CHAR IN TYPDAT 


1376 


002766 


000736 








BR 


TYPA 




1377 


002766 


116777 


000060 


176262 


TYPDI 


MOVB 


TYPDAT,#TPB 


lOUTPUT CHARACTER TO PRINTER 


1378 


002756 


103777 


176236 






TSTB 


#TPS 


IWAIT FOR DONE FLAG, 


1379 


002T60 


100375 








BPL 


»«'6 




9MAIN 


MAC Y 1 1 


27 C657) 


1 7»N0V<9 


75 1 tt 1 6 


36 PAGE 


31 






DZKL AE 


















1 3S0 


lOiue 1 uc 










R7S 


%7 


lEXIT 


1 33 i 


Bloc f w "v 


112767 




000020 


TYPFI 


MOVB 


#15,TYPDAT 


IMOVE CARRIAGE RETURN CODE TO TYPDAT 


1382 


002772 


006 7 67 


177750 






JSR 


X7,TYP0 


160 TYPE CHAR, 


1 3S3 


tSuC ' f 


1 12767 


01 01 Old I ? 
10 tu ID u 4 C 


000006 


TYPSI 


MOVB 


«12»TYPDAT 


IMOVE LF CODE TO TYPDAT, 


1 386 


003006 


0047 67 


177736 






JSR 


X7,TYPD 


|G0 TYPE CHAR, 


1 385 


» l£J J i 


0007 32 








BR 


TYPA 




1366 


KJ J <w A C 


000000 






TYPDATI 


OPEN 






1387 










fSUBROUTlNE TO 


OUTPUT A SERIES 


OF ASCII MESSAGES ON TELETYPE PRINTER 


1 ^fla 


1^ 01 1 01 4 /I 


01 4 4 & 0101 

4 4 






TYPSI 


MOV 


#X6,X0 


IGET ADDRESS THAT CONTAINS MESSAGE ADDRESS 




01 01 1 Rl 4 


0627 1 6 


00000c 






ADD 


#2,9X6 


lUPDATE TO NEXT MESSAGE ADDRESS 


1 370 


01 01 1 01 3 3 




mcnaa 4 a 
0000 4 '* 






MOV 


i'X0,TYPSB 


lADDRESS OF MESSAGE TO TYP8B 


I 39 1 


01 Z 01 3 C 


022767 


177777 


000006 




CMP 


i»l,TYPSB 


ICHECK FOR TERMINATOR 


1392 


oini 1 01 /I 

lulu J <U J M 


n 01 1 01 01 4 

00 4 00 4 








BNE 


TYPSA 


IBRANCH IF NOT TERMINATOR, 




10x5 so 


01 01 01 01 01 3 

0000 0c 








RTI 




ITERMINATOR, EXIT 


4 »Qa 


n fit 1 01 zi 


4 01 /I n 01 ot 






TYPSAI 


TYPE 




ICALL ON TYP SUB TO TYPE MESSAGE 


1 3°5 


oin ^ 01 zi 3 


000000 






TYPSBl 


OPEN 




lADDRESS OF MESSAGE GOES HERE 




a)(o3IO*»'» 


not 01? k.% 








BR 


TYPS 


160 PROCESS NEXT MESSAGE 


f «« 










ISUBROUTINE TO 


DELAY A SPECIFIED NUMBER OP MILLISECONDS 






oia xoicoi 
IuIm J0 Ju 








DLCNTa 


,<»2 




1 


I0I0 jig<4D 


01 1627 


0(70000 




OUTJ 


MOV 


C6} ,#0 


IGET DELAY COUNT ADDRESS. 


1 fl«4' 






000002 






ADD 


«2,I>X6 


ISET UP EXIT ADDRESS 






017767 


177766 


177766 




MOV 


»DLCNT,DLCNT 


IDELAY COUNT TO STACK 


1 flffla 
1 aa^ 


Sl0d0e't 


0!0l<<OI&'7 


176706 






CLR 


PSW 


ISET PRIORITY 






00 J0 f C 








MSECb, 


*2 




1606 


00310 f 


04^7^7 


010101010101 
000000 


000066 


DLTAI 


MOV 


#0,DLYT 


11 MSEC COUNT TO DLYT 


1 605 


01 01 *t 01 7 1^ 




01010101/1 9 


000060 


DLYBI 


MOV 


DLYTiDLYT 




J 




016767 


\auiOr) s^t 


000032 




MOV 


DLYT,OLYT 




1607 


0031 1 2 


016767 


01 01 0t 01 3& 


000024 




MOV 


OLYTiDLYT 






IS 10 J * CIO 






000016 




MOV 


DLYT,DLYT 




1 609 




005367 








DEC 


DLYT 


IDECREMENT DLYT, 


1610 


0031 32 


00 1361 








BNE 


DLTB 


IBRANCH IF NOT 0. 


1611 


0031 36 


005367 


177710 






DEC 


DLCNT 


IDECREMENT COUNT 


1612 


aoi'i 4 at* 


001 333 








BNE 


DLYA 


IBR IF NOT DONE DELAYING 


1613 


003162 


0101010101P 

%iKiVv iuC 








RTI 




lEXIT* 




mmx \ a{i 


000000 






DUYTl 


OPEN 






1615 










ISUBROUTINE TO 


STALL A RANDOM 1 


NUMBER OF MILLISECONDS. MAXIMUM STALL 


1416 










lOETERMINEO BY 


CONTENTS OF LOC 


5TLMSK. 


1617 


lu 10 «9 A *T 


032767 


01 AO) 01 C4 01 
IP H ;u lu ici 


176074 


STALI 


BIT 


»BIT16,PRGID 


ITEST FOR STALLS ALLOWED, 


1618 


003 1 36 


01 01 i ami 








BNE 


STALAA 


lALLOWEO. 


1 4 1 9 


Dint 1 ^k 










RTI 




INOT ALLOWED. 




noil 1 ^171 
iCllO.9 t 010 


ly 10 *♦ r f 


177336 




STAIAAI 


JSR 


X7,RNGEN 


IGO GET RANDOM NUMBER, 




003 1 66 


066700 


01 01 01 01 1 d 






BIC 


STLM3K,X0 


|« IN R0, APPLY STALL MASK. 


1 622 


aa't 4 7 01 
tStOal i r 10 


0101 1 ^tSA 
10 ») 4 '*B'' 








BEQ 


3TALB 


IBRANCH IF RESULT IS 0, 


1 623 


0031 7 2 


iv 4 w V w r 








MOV 


X0,STALA 




1624 


003176 


106026 








DELAY 




IDELAY 


1625 


003200 


000000 






3TAUAI 


OPEN 




IDELAY COUNT 


1626 


003202 


000002 






3TAI.BI 


RTI 




lOONE, EXIT, 


1427 


003206 


000000 






STUHSKI 


OPEN 




ISTALL MASK. 


1628 










fREADER 


DELAY 1 


ROUTINEt 




1629 




003210 








ROLCNT 


a,*2 




1630 


003206 


011627 


000000 




ROLYf 


MOV 


C6} »«0 




1631 


003212 


062716 


000002 






ADD 


«2, C6} 




1632 


003216 


017767 


177766 


177764 




MOV 


•ROLCNT, RDLCNT 


IGET DELAY COUNT. 


1633 


003226 


003067 


176366 






CLR 


P8M 







iTC63f5 




n I4ii6 fhU 


31 


























§ii§i@ 


016767 


177616 


§@i04§ 


ROLYAt 


MOV 


M8eC»DLYR 




i43S 


iS3fl6 


il&7i7 


ie@04§ 


000040 




MOV 


OLYRfDLYR 






§03144 


SlITIT 


g0iei4 


§00031 




MOV 


DLYRfDLYR 




H3T 


0@3§iS 


§1176? 


090026 


mmu 




MOV 


OLYRiDLYR 




His 


0g3§§0 


016767 


001020 


000016 




MOV* 


DLYRiOLYR 






i@3i66 


003367 


000011 






DEC 


OLYR 


^DECREMENT DLYR, 


1440 


0§3i72 


001361 








BNi 


RDLYI 


IBR XF NOT 0. 


1441 


§01274 


031367 


177710 






DEC 


ROLCNT 


lOECREMENT COUNT. 


1442 


003300 


001333 








BNg 


ROLYA 


IBR IF NOT 0. 


1443 


003302 


ei00§a 








RTI 




lEXIT, 


1444 


003304 


000000 






DLYRI 


OPEN 






I44S 










f READER 


STALL ROUTINE, 




1446 


003306 


032767 


040000 


173734 


RSTALI 


SIT 


*B!T14»PRQID 


ISTALLT 


144? 


003314 


001001 








BNE 


RSTLA 


IBR IF YES, 


144S 


003316 


000002 








RTI 




|N0. EXIT, 


1449 


0033S0 


004767 


177174 




R8TLAI 


JSR 


PCiRNQEN 


IGET RANDOM NUMSiR« 


14S0 


003314 


0467S0 


r ?6i4 






BIC 


STLHSK»%0 




14Si 


003330 


001404 








BE6 


RSTLB 




14S2 


003331 


010067 


000002 






MOV 


X0»RSTLAA 




1453 


003336 


10402S 








RDELAY 




IDELAY. 


1454 


003340 


000000 






RSTLAAI 


OPEN 






1455 


003342 


000002 






RSTLBI 


RTI 




IDONB. EXIT. 


1456 










iSUa TO 


DELAY X 


TIME, 




1457 




303330 








DL¥RapDLYX*4 




1438 




003362 








0LYR1«DLYXA«4 




1459 


003344 


012727 


000144 


000000 


OLYXI 


MOV 


il00..»0 


1 


146e 


003332 


003067 


174420 






CLR 


P8W 




14&1 


003336 


012727 


001750 


000000 


DLYXAI 


MOV 


«^iee0,i#0 


ICOUNT TO DLYRl, 


1462 


003364 


003367 


177772 




OLYXBI 


DEC 


DLYRl 


IDECREMENT DLYRl. 


1463 


003370 


001375 








BNE 


DLYXB 


IBR IF NOT 0, 


1464 


003372 


003367 


177752 






DEC 


DLYR0 


IDECREMENT DLYR0, 


1465 


003376 


001367 








BNE 


DLYXA 


IBR IF NOT 0. 


1466 


003400 


000002 








RTI 




lEXIT, 


1467 










lOELAY 


ROUTINE 


CALIBRATE ROUTINE. 


1463 


003402 


004767 


000050 




TIMCALI 


JSR 


PCTSPCH 


lOUTPUT CHAR, 


1469 


003406 


004767 


000044 






JSR 


PCTSPCH 


lOUTPUT CHAR, 


1470 


003412 


104400 








DELAYX 






1471 


003414 


104011 








SRESET 






1472 


003416 


005067 


173776 






CLR 


OVQUOT 




1473 


003412 


016767 


17S766 


175766 




MOV 


BRCTRfDVDNO 


ISAVE BRCTR CONTENTS. 


1474 


003430 


162767 


000144 


175760 


TIMCLAI 


SUB 


#100.,OVOND 


|DVDND<'100 


i4T5 


003436 


103403 








BLO 


TIMCLB 


IBR IF UNSUCCESFUL, 


1476 


003440 


005267 


175754 






INC 


DVQUOT 


IINCR QUOTIENT, 


1477 


003444 


000771 








BR 


TIMCLA 




1478 


003446 


016767 


175746 


177416 


TIMCLBI 


MOV 


DVQUOT, MSEC 


ISAVE 1 MSEC CONSTANT, 


1479 


003454 


000207 








RTS 


PC 


lEXIT, 


1430 


003436 


104007 






TSPCHI 


STPCHV 




ISET UP VECTOR. 


1481 


003460 


003542 








TSPCHA 






1482 


003462 


005067 


173726 






CLR 


BRCTR 




1483 


003466 


005077 


175524 






CLR 


PTPB 


ILOAD BUFFER WITH 0, 


1434 


003472 


052777 




175514 




BIS 


#BIT6,#TPS 


lENABLE INTERRUPT, 


1485 


003500 


016767 


175710 


175706 


TSPCHCI 


MOV 


BRCTR, BRCTR 




1436 


003506 


016767 


175702 


175700 




MOV 


BRCTR, BRCTR 




1487 


003514 


016767 


175674 


175672 




MOV 


BRCTR, BRCTR 






MACYll 


27C6S73 


i7«N0V^ 


75 1412 


6 PAGE 


33 
























146B 


003522 


016767 


175666 


175664 




MOV 


BRCTR, BRCTR 




14S9 


003530 


005267 


173660 






INC 


BRCTR 




1490 


003534 


001361 








BNE 


TSPCHC 


IBR IF RESULT NOT 0, 


1491 


003536 


001434 








EHLT 




INO INTERRUPT FROM PUNCH/PRINTER, 


1492 


003540 


000777 








BR 




1493 


003542 


012716 


003550 




TSPCHAI 


MOV 


nSPCHB, C6) 


IMODIFY INTERRUPT EXIT TP STPCHB, 


1494 


003546 


000002 








RTI 




lEXIT INTERRUPT, 


1495 


003550 


000207 






TSPCHBI 


RTS 


PC 


lEXIT. 


1496 










^SUBROUTINE TO 


GENERATE RANDOM 


CHARACTER COUNT 


1497 


0035S2 


004767 


176742 




GRCNTI 


JSR 


X7,RNGEN 


IGET RANDOM NUMBER 


1498 


003556 


046700 


000010 






BIC 


RCMSK,%0 


lAPPLY MASK 


1499 


003562 


001773 








BEQ 


GRCNT 


ITRY AGAIN IF RESULT 


1500 


003364 


010067 


000004 






MOV 


X0,RNCNT 


ICOUNT TO RNCNT 


1501 


003370 


000207 








RTS 


X7 


lEXlT. 


1502 


003572 


000000 






RCHSKI 


OPEN 




IRANOOM CHARACTER MASK. 


1503 


003574 


000000 






RNCNTI 


OPEN 




IRANDOM CHARACTER COUNT, 


1504 










rSUB TO 


COMPARE 


READER DATA AGAINST EXPECTED DATA AND REPORT ERRORS, 


1505 


003376 


004767 


000262 




BCHECKI 


JSR 


%7,GTBIN 


IGET BIN CHARACTERdN R03 


1506 


003602 


110067 


175557 






MOVB 


X0,CRBUF^1 


IS/B CHAR TO CRBUF«1 


1507 


003606 


126767 


175552 


175551 




CMPB 


CRBUF,CRBUF*i 


ICOMPARE S/B AND WAS CHARS, 


1508 


003614 


001001 








BNE 


.4>4 


IBRANCH IF NOT SAME, 


1509 


003616 


000207 








RTS 


X7 


ISAME. EXIT, 


1510 


003620 


104017 








DATHLT 




IGO HALT AND DISPLAY DATA, 


1511 


003622 


005367 


175554 






DEC ERCTR 


13 ERRORS? 


1312 


003626 


001002 








BNE 




IBRANCH IF NOT 3 YET. 


1513 


003630 


004767 


000002 






JSR 


X7,BSYNC 


13 ERRORS, RE8YNC READER. 


1514 


003634 


000207 








RTS 


X7 


lEXIT, 


1315 










ISUBROUTZNE TO 


SYNC THE LSR TO 


A SPECIAL BINARY COUNT PATTERN TEST TAPE 


1516 


003636 


004767 


000164 




BSYNCI 


JSR 


X7,INBIN 


UNITIALIZE BINARY PATTERN 


1517 


003642 


004767 


176724 






JSR 


X7, BREAD 


IREAD CHAR AND STORE AT CHRl 


1518 


003646 


116767 


175512 


175512 




MOVB 


CRBUFfCHRl 




1519 


003654 


004767 


176712 






JSR 


X7, BREAD 


IREAD CHAR AND STORE AT CHR2 


1520 


003660 


116767 


175500 


175502 




MOVB 


CRBUP,CMR2 




1521 


003666 


004767 


176700 






JSR 


X7, BREAD 


IREAD CHAR AND STORE AT CHR3, 


1522 


003672 


116767 


175466 


175472 




MOVB 


CRBUF,CHR3 




1SZ3 


003700 


004767 


000012 






JSR 


X7,SYNCA 


IGO SYNC 


1324 


003704 


000734 








BR 


B8YNC 


INO SYNC, TRY AGAIN, 


1525 


003706 


012767 


000003 


175466 




MOV 


•3, ERCTR 




1326 


003714 


00020? 








RTS 


X7 


|SUCCESS,EXIT, 


152? 


001716 


012767 


001000 


000100 


SYNCAI 


MOV 


«512,,SYCTRA 


1312 TO SYCTRA. 


1528 


@a3Ti4 


004767 


000134 




3YNCBI 


JSR 


X7,GTBIN 


IBIN CHAR TO CHRIA. 


IS29 


003730 


010067 


175440 






MOV 


X0,CHR1A 




1530 


003734 


004767 


000124 






JSR 


X7,GTBIN 


IBIN CHAR TO CHR2A, 


ISSi 


003740 


010067 


175432 






MOV 


X0,CHR2A 




1332 


303T44 


004767 


000114 






JSR 


X7,6TBIN 


IBIN CHAR TO CHR3A, 


1533 


003730 


010067 


175424 






MOV 


X0,CHR3A 




1534 


003734 


026767 


175406 


175412 




CMP 


cmri,chria 


IMATCH? 


1335 


003762 


001013 








BNE 


3YNCC 


IBR IF NOT, 


1536 


003764 


026767 


175400 


175404 




CMP 


CHR2,CHR2A 


IMATCH? 


1537 


003771 


001007 








BNE 


8YNCC 


IBR IF NOT, 


1538 


303774 


026767 


175372 


175376 




CMP 


CHR3,CHR3A 


IMATCH? 


1539 


004002 


001003 








BNE 


SYNCC 


IBR IF NOT, 


iS4@ 


904004 


062716 


090002 






ADD 


ia,C65 


ISET UP SYNCED EXIT, 


1541 


004010 


000207 








RTS 


IT 


lEXIT, 







ITCISfJ 




7S 


16 PAM 




























§i4@ii 


i@iSI7 


iii§i§ 




SYNSei 


DEC 




ITSIID ill TIMlSt 


iw 




001341 








SNi 




|8R IF NOT. 




§@4@§@ 


104010 








IHALT 








@s4iia 


0@0gi7 








niB 


I? 


ISYNC mQn iMlT« 




@@43i4 


i@e§ge 






lYCTSAI 


OPIN 
















IIUIROUTINS TO 


INITIALIZE BINARY COUNT P^llgmM, 




mwh 


011717 


177777 


000014 


XNBXNI 


MOV 


••1 . RTNn 






i@40|4 


i@4§&7 


i0Sli§ 






JIR 


11 . BHflVf 


t TfJ MINUS 1 . 


%5%§ 


i04i4@ 


004i§0 








RIND 






ISSl 


004043 


004031 








RXNO*l 








004044 


000013 








U. 






IS33 


004046 


000§07 








RTS 


%7 


liK IT 


t3i4 


0040S0 


000000 






RINDl 


OPEN 






SSSS 


0040S2 


000000 






PT@I 


OPEN 








804014 


000000 






PTll 


OPEN 






15ST 


004036 


000000 






PINDI 


OPEN 






I9SS 


004060 


000000 






PT0PI 


OPEN 






IS39 


004062 


000000 






PTIPI 


OPEN 
















I8PECXAL BINARY 


COUNT P ATTFRN i 

www Ml r«i lEvni'i > 




1561 


004064 


016767 


177762 


177762 


OTBXNI 


NOV 


PT0 1 PT 1 




1568 


004072 


005167 


177736 






COM 


PTl 




1363 


004076 


00516? 


IT7746 






COM 


RIND 




1564 


004102 


601002 








BNE 


a«6 




IS63 


004104 


005267 


177744 






XNC 


PTl 






004110 


042767 


177400 


177736 




BIC 


#177400, PTl 


/MASK TO S BITS 


1367 


004116 


016767 


177732 


177726 




MOV 


PTliPT0 


fSAVE BIN CHAR IN FT0 


1368 


004124 


016700 


177724 






MOV 


PTI,X0 


IBIN CHAR TO R0. 


1369 


004130 


000S07 








RT3 


S7 


/EXIT. 


1570 


004132 


016767 


177722 


177722 


GTBINP 1 


MOV 


PT0P,PT1P 


IPREVXOUS BIN CHAR TO PTlP 


lS7i 


004140 


005167 


177716 






COM 


PTIP 




1572 


004144 


005167 


177706 






COM 


PIND 




1573 


004130 


001002 








BNE 


,*6 




1574 


004132 


005267 


177704 






INC 


PTIP 




J575 


004156 


042767 


177400 


177676 




BXC 


#177400, PTIP 


iMASfC TO § ilTS, 


1S76 


004164 


016767 


177672 


177666 




MOV 


PT1P,PT0P 


ISAVE BIN CHAR IN PT0P, 


1577 


004172 


016701 


177664 








PTIP, XI 


IfilN CHAR TO Rl, 


1578 


004176 


000207 








RT3 


%7 


lEXIT. 


1579 










lOCTAL 


TO ASCII 


CONVERT ROUTINES 


1580 


004200 


012500 






ACNV6I 


MOV 


(S)t,X0 


/CONVERT TO 6 ASCII. GET OCTAL ADDRESS 


i58| 


004202 


012567 


000012 






MOV 


C3)*, ACNVB 


/GET ASCII ADDRESS 


1562 


004206 


004767 


000032 






JSR 


X7,ACNV 


/CONVERT TO ASCII 


1583 


004212 


004567 


000122 






J8R 


X5,BM0VE 


/MOVE 6 CHARS TO ASCII ADDRESS 


1584 


004216 


004254 








AIST 






1585 


004220 


000000 






ACNVB! 


OPEN 






1386 


004222 


000006 








6 






138? 


004224 


000205 








RTS 


X5 


/EXIT 


1588 


004226 


012500 






ACNV4I 


MOV 


C5)*,X0 


/CONVERT TO 4 ASCII, GET OCTAL ADDRESS 


1589 


004230 


01256? 


000012 






MOV 


(5)*,ACNVC 


/GET ASCII ADDRESS 


1590 


004234 


004767 


000024 






JSR 


X7, ACNV 


/CONVERT TO ASCII 


1591 


004240 


004567 


000074 






JSR 


X5,BM0VE 


/MOVE 4 CHARS TO ASCII ADDRESS. 


1592 


004244 


004236 








AlST+2 






1593 


004246 


000000 






ACNVCI 


OPEN 






1594 


004250 


000004 








4 






1595 


004252 


000205 








RTS 


X5 


/EXIT 




MACYll 


27(657) 


|7-N0V« 


75 14106 PAGE 


35 






DZKU^E 


















1596 


004254 


000000 






AIST! 


OPEN 






1597 


004256 


000000 








OPEN 






1598 


004260 


000000 








OPEN 






1599 


004262 


000000 






ACNVXI 


OPEN 






1600 


004264 


012701 


004262 




ACNVI 


MOV 


#A1ST*6,XI 


/ADDR TO STORE ASCII TO Rl 


1601 


004270 


012702 


000006 






MOV 


«6,X2 


lb TO R2 


1602 


004274 


011067 


177762 






MOV 


#X0, ACNVX 


/OCTAL WORD TO ACNVX 


1603 


001300 


016703 


177756 




ACNVM J 


MOV 


ACNVX,X3 




1604 


004304 


042703 


177770 






BIC 


#177770, X3 


/ISOLATE LEAST SIGNIFICANT OCTAL # 


1605 


004310 


062703 


000060 






ADD 


#60, X3 


/ADD 60 TO CONVERT TO ASCII 


1606 


004314 


110341 








MOVB 


X3,-C1J 


/STORE ASCII BYTE 


1607 


004316 


006067 


177740 






ROR 


ACNVX 


/MOVE NEXT OCTAL DIGIT TO LEAST 


1608 


004322 


006067 


177734 






ROR 


ACNVX 


/SIGNIFICANT POSITION 


1609 


004326 


006067 


177730 






RQR 


ACNVX 




1610 


004332 


005302 








DEC 


X2 


/DONE 6 TIMES? 


1611 


004334 


001361 








BNE 


ACNVM 


/NO, REPEAT. 


1612 


004336 


000207 








RTS 


X7 


/YES, EXIT. 


1613 










ISUBROUTINE TO 


MOVE A VARIABLE 


NUMBER OF BYTES, 


1614 


004340 


104020 






BMOVEl 


SAVREG 




/SAVE REGS. 


1615 


004342 


012501 








MOV 


(5)*, XI 


/GET"FROM"AODRESS 


1616 


004344 


012502 








MOV 


C5)t-,X2 


/GET"TO"ADDRESS 


1617 


004346 


012503 








MOV 


(55*, X3 


/GET COUNT 


1616 


004350 


1 12122 






8M0VAI 


MOVB 


en*, 


/MOVE BYTE 


1619 


004352 


00S303 








DEC 


X3 


/DECREMENT COUNT 


1620 


004354 


001375 








BNE 


BMOVA 


/BRANCH IF NOT DONE, 


1621 


004356 


100021 








RSTREG 




/RESTORE REGS, 


1622 


004360 


000205 








RTS 


X5 


/DONE EXIT 


1623 










^SUBROUTINE TO 


CHECK FOR PUNCH 


READY. 


1624 


004362 


105777 


174626 




CPROYI 


TSTB 


fTP8 


/TEST FOR READY BIT. 


1625 


004366 


100001 








BPL 


CPROYA 


/BRANCH IF READY NOT SET. 


1626 


004370 


000207 








RTS 


X7 


/OK. EXIT. 


1627 


004372 


104010 






CPRDYAI 


EHALT 




/NOT READY. HALT, 


1626 


004374 


000772 








BR 


CPROY 




1629 










/SUBROUTINE TO 


PUNCH ON LSP CHARACTER IN REG 0, 


1630 


004376 


004767 


177760 




LSPCHI 


JSR 


X7,CPRDY 


/GO CHECK FOR PUNCH READY. 


1631 


004402 


010077 


174610 






MOV 


X0,#TPB 


/LOAD PUNCH BUFFER, 


1632 


004406 


105777 


174602 






TSTB 


fTPS 


/WAIT FOR DONE. 


1633 


004412 


100375 








BPL 


• ^4 




1634 


004414 


003000 










X0 




1635 


004416 


000207 








RTS 


X7 


/DONE, EXIT, 


1636 










IBINARY 


TO DECIMAL ASCII CONVERT SUBROUTINE, 


1637 


004420 


012700 


015135 




BDCNVi 


MOV 


#DECVAL,X0 


/SET UP ADDR TO STORE DECIMAL ASCII IN 


1638 


004424 


013501 








MOV 


#C5)*,Xl 


/BINARY VALUE TO Rl, 


1639 


004426 


012702 


004526 






MOV 


#A0TENP,X2 


/ADDR OF TEN POWER STRING TO R2. 


1640 


004432 


012767 


000005 


000060 




MOV 


#5,CNVCTR 


/SET UP FOR 5 POWER CONVERSIONS. 


1641 


004440 


012267 


000060 




BDCNVAI 


MOV 


(2)*,TENPWR 


/MOVE POWER OF TEN VALUE TO TENPWR, 


1642 


004444 


004767 


000010 






JSR 


X7,SUBTEN 


/PERFORM CONVERSION 


1643 


004430 


005367 


000044 






DEC 


CNVCTR 


/DONE 3 CONVERSIONS? 


1644 


004434 


001371 








BNE 


BDCNVA 


/BRANCH IF NOT YET 5. 


i64f 


0044S6 


000205 








RTS 


xs 


/YES, EXIT. 


1646 


004460 


003067 


000036 




3UBTENI 


CLR 


DIGIT 


/CLEAR DIGIT 


1647 


004464 


166701 


000034 




8UBTNAI 


SUB 


TENPWR,X1 


/SUBTRACT TEN POWER FROM BINARY VALUE. 


164S 


004470 


103403 








BCS 


SUBTNB 


/BRANCH IF UNSUCCESSFUL SUBTRACTION, 


I6#9 


004472 


003247 


000024 






INC 


DIGIT 





,HA|N, MASYil ITCiiTS iT«.NOV®fS Si 



use 


004476 


000771 








BR 


aUBTNA 




U91 


004900 


066701 


000010 




9UBTNBI 


ADO 


T|NPHR,%J 


IRESTORE OUOTRACTED VALUS« 


I6sa 


004904 


062767 


000060 


000010 




ADO 


i60fOlQXT 


ICONVERT COXOIT) TO ASC22 


1693 


004912 


116710 


000004 






.HOVB 


DXOZT, C0}« 


fMOVE A8CXI CHAR TO OECVAL FliiSs 


1654 


004516 


000207 








RTI 


X7 


lEXXT, 


i65S 


004520 


000000 






CNVCTRI 


OPEN 






I6S6 


004322 


000000 






OJOITI 


OPEN 






S6iT 


0045S4 


000000 






TENPWRI 


OPEN 






I6SS 


004526 


033480 






AOTENF! 


10000. 






I6S9 


004530 


0017S0 








1000. 






1660 


004332 


000144 








100. 






1661 


004514 


000011 














1663 


004536 


300001 








1 






i663 










ySUBROUTXNC TO 


TYPE A LINE OF 


CHARACTIRS 


1664 


004340 


012767 


000114 


003024 


TYPLNI 


MOV 


#76.»TCTR 


176 TO CHAR COUNT 


1665 


004S46 


012704 


015143 




TYPLAI 


MOV 


#BL0CKA,X4 


ISET LINE ADDRESS IN R4, 


1666 


004552 


104002 






TYPLiI 


«TALL 




f^TALL IF ALLOWED, 


1667 


004554 


112400 








MOVB 


C4)«iX0 


lOET CHARACTER 


166B 


004556 


004767 


177614 






JSR 


XTiLSPCH 


ISO OUTPUT CHARACTERS 


1669 


004562 


005367 


000004 






DEC 


TCTR 


rDONET 


i6?0 


004566 


001371 








BNE 


TYPLB 


IBRANCH IF NOT DONE. 


16Ti 


004570 


000207 








RT8 


X7 


;D0NE. EXIT 


1672 


004572 


000000 






TCTRI 


OPEN 






1673 










SUBROUTINE TO 


TYPE LINE OF 3 


CHARACTERS 


1674 


004574 


011667 


000016 




TYPL3I 


MOV 


•X6#TPL3A 


IDEVELOP AND SET ADDRESS OF 


1675 


004600 


017767 


000013 


000010 




MOV 


#TPL3A,TPL3A 


;DATA in TPL3A, 


1676 


004606 


062716 


000002 






ADO 


i2,PX6 


ISET UP EXIT, 


1677 


004612 


004567 


000064 






JSR 


X5,FBF3 


IFXLL BUFFER WITH 3 CHARACTERS 


1678 


0046S6 


000000 






7PL3AI 


OPEN 






167<? 


004620 


042767 


040000 


174422 




BIC 


#BZT14,PRQID 


^DISABLE STALLS, 


1680 


004626 


004767 


177706 






JSR 


X7,TYPLN 


160 TYPE LINE OF CHARACTERS. 


1681 


004632 


000002 








RTI 




lEXIT, 


1682 


004634 


112767 


000015 


010300 


8TBFI 


MOVB 


*15f BLOCKA 


ISUB TO SET UP BUFFER AREA. 


1683 


004642 


112767 


000012 


010273 




MOVB 


#12iBL0CKA*l 




1684 


004650 


112767 


000015 


010376 


5TBFAI 


MOVB 


ilSrBLOCKB 




168S 


004656 


112767 


000012 


010371 




MOVB 


il2f BLOCKB^l 




1636 


004664 


112767 


000015 


010474 




MOVB 


#15f BLOCKC 




1687 


004672 


112757 


000012 


010467 




MOVB 


il2f BLOCKC^l 




1688 


004700 


000207 








RTS 


X7 


rexiT 


1689 










I8UBR0UTINE TO 


FILL CHARACTER 


BUFFER WITH 3 CHARACTERS, 


1690 


004702 


012567 


000004 




FBF3I 


MOV 


C5)*,FBF3A 




1691 


004706 


004567 


177426 






JSR 


X5,BM0VE 


IMOVE 3 CHARS TO BUFFER, 


1692 


004712 


000000 






FBF3AI 


OPEN 






1693 


004714 


015144 








BLOCKl 






1694 


004716 


000003 








3 






1693 


004720 


004567 


177414 




FBF3BI 


JSR 


XSiBMOVE 


IFILL 72 CHARACTERS BUFFER 


1696 


004724 


015144 








BLOCKl 




»WXTH 3 CHARACTERS 


1697 


004726 


015147 








BL0CKU3 




1698 


004730 


000105 








69, 






1699 


004732 


004567 


177402 






JSR 


XSfBMOVE 




1700 


004736 


015144 








BLOCKl 






1701 


004740 


015256 








BL0CK2 






1702 


004742 


000110 








72, 






1703 


004744 


000205 








RTS 


XS 


lEXIT 



.MAIN, 


MACYll 


27C6573 


17»N0V« 


75 14106 PAGE 


37 




DZKLAE 














1704 








SUBROUTINE TO FILL BUFFER 


WITH ALL CHARACTERS 


1705 


004746 


004567 


177366 


FBALLI 


JSR XS,BMOVE 


IFILL 72 CHAR BUFFER WITH 


1706 


004752 


014176 






A 


lALL CHARACTERS, 


1707 


004754 


015144 






BLOCKl 




1708 


004756 


000077 






63, 




1709 


004760 


004567 


177354 




JSR XSfBMQVE 




1710 


004764 


014176 






A 




1711 


004766 


015243 






BL0CK14-63, 




1712 


004770 


000011 






9, 




1713 


004772 


004567 


177342 




JSR XSiBMOVE 




1714 


004776 


015144 






BLOCKl 




1715 


005000 


015256 






BL0CK2 




1716 


005002 


000110 






72, 




1717 


005004 


000207 






RTS X7 


lEXIT. 


1718 








ISUB TO 


FILL BUFFER WITH 33 


WORST CASE PATTERN, 


1719 


005006 


004567 


177326 


FM336I 


JSR X5,BM0VE 


16 CHARACTER PATTERN TO BUFFER 


1720 


005012 


014162 






A3SWP6 




1721 


005014 


015144 






BLOCKl 




1722 


005016 


000006 






6 




1723 


005020 


004567 


177314 




JSR X5,BM0VE 


IFILL BUFFER WITH PATTERN, 


1724 


005024 


015144 






BLOCKl 




1725 


005026 


015152 






BL0CK1*6 




1726 


005030 


000102 






66, 




1727 


005032 


004567 


177302 




JSR X5,BM0VE 




1728 


005036 


015144 






BLOCKl 




1729 


005040 


015256 






BL0CK2 




1730 


005042 


000110 






72, 




1731 


005044 


000207 






RTS X7 


lEXIT 


1732 








ISUB TO 


FILL BUFFER WITH 35 


WORST CASE PATTERN, 


1733 


009046 


004567 


177266 


FW356I 


JSR X5,8M0VE 


16 CHARACTER PATTERN TO BUFFER 


1734 


005092 


014170 






A3SWP6 




1735 


005054 


015144 






BLOCKl 




1736 


005056 


000006 






6 




1737 


009060 


004567 


177254 




JSR X5,0MOVE 


IFILL BUFFER WITH PATTERN, 


1738 


005064 


015144 






BLOCKl 




1739 


005066 


015152 






BL0CK1«6 




1740 


005070 


000102 






66, 




1741 


005072 


004567 


177242 




JSR XS.BMOVE 




1742 


005076 


015144 






BLOCKl 




1743 


005100 


015256 






BL0CK2 




1744 


005102 


000110 






72, 




174S 


005104 


000207 






RTS X7 


lEXXT. 


1746 








IROUTINE TO GET CHARACTER FROM KEYBOARD. 


1747 


005106 


005777 


174100 


6KBCRI 


TST #TKB 


fCLEAR DONE. 


1748 


005112 


105777 


174072 




TSTB #TKS 


IWAXT FOR DONE FLAG. 


1749 


005116 


100375 






BPL ."4 




1750 


005120 


117767 


174066 


174336 


MOVB #TKB,CRBUF 


ICHARACTER TO CRBUF. 


1751 


005126 


116723 


174232 




MOVB CRBUF, (3)4' 


ICHARACTER TO LINE BUFFER. 


1752 


005132 


116700 


174336 




MOVB CRBUF, X0 




1753 


005136 


004767 


177334 




JSR XTiLSPCH 


lECHO CHARACTER. 


1754 


005142 


000207 






RTS XT 





Pi6i « INPUt^OUTFUT UOiie TiSfS 



ITSS 










PR@S 8 INPUTsOUTPUT t06|g TilTS 










ZfB 




Iff? 




iTTTf? 












sun? 




MOV 


#P0T8,K8TAflT MDBBIIS OF iST iBUfINf TO 




iiSlii 






JMP 


SR8IT ISO 0gT STAflTIOi 








P0TSI 





1 PRS0 TiST ROUTINE i 










PiTI 


lADDflgSS OF NiMT ROUTINi 




i0§lii 






1000, 


iTiST ITfRATION gOUNT 




m3HBi 


00S1T4 




P0AA 


ISCOPS ENTRY POINT 



@0SII6 
O0SIT4 
@0iS00 

00§iea 

00S20& 
00S§|0 
0033IS 

0esai4 



005216 
0BS2S4 
03SS30 
003232 
005S34 

00S236 
S0S240 
005242 
003244 



005246 
003254 
005260 
005262 
003264 

003266 
0052T0 
005272 
00S2T4 



005276 
003304 
005310 
005312 
005314 



0iS7fe7 
0037T7 
104012 
104003 
104012 

000001 
003236 
001730 
003224 



012767 
005777 
104012 
104003 
104012 

000002 
003266 
001750 
003234 



012767 

00S777 
i0«0l2 
104003 
104012 

000003 
005316 
001750 
005304 



012767 

003777 
104012 
104003 
104012 



003202 
17401S 



ITSST ABIUITY TO REFERENCE THE KETBOARD/REAOIR STATU! WORD CTKSJ 

172610 MOV #P0AE,MACHIR »8ET UP MACHINE ERROR TRAP, 

PflAAl TST »TK8 IREPERINCI CODER STATUS WOiOt 

SCOPE I3C0PE 

P0AEI ERROR fERRQR, TRAPPED HHfN RgrgRENClN@ RIAf>gR« 

SCOPE ISTATUS WORD CTSIU 

I* 



P0T1I 



003232 
173762 



005262 
173734 



005312 
173706 



I 

P0T2 

1000, 

P0BA 



I PR60 TEST ROUTINE I 
MDDRES8 or NIS? ROUTINE 
ITE8T ITERATION COUNT 
I3C0PE ENTRY POINT 



M 

ITE8T ABILITY TO REFERENCE THE KEYBOARD/RIAOER BUFFER CTKiK 

MOV »P0BE,MACHER |SET UP MACHINE ERROR TRAP 

P0BAI TST PTKB IREFERENCE READER SUFFER, 

SCOPE ISCOPE 

P0BEI ERROR fERROR, TRAPPED MHEN RgfERENClNS 

SCOPE FRSADER BUFFER* £TKi5a 



P0T2I 



2 

P0T3 

1000, 

P0CA 



I PRG0 TEST ROUTINE 2 
IADDRE3S OF NEKT ROUTINE 
nEST ITERATION COUNT 
ISCOPE ENTRY POINT 



ITEST ABILITY TO REFERENCE PUNCH/PRINTER STATUS WORD CTP8J , 

MOV #P0CE,MACHER ISETUP MACHINE ERROR TRAP, 

P0CAJ TST #TP8 IREFERENCE PUNCH/PRINTER STATUS WORD, 

SCOPE ISCOPE 

P0CEI ERROR lERROR, TRAPPED WHEN RgFERENClN6 

SCOPE iPUNCH/PRINTiR STATUS WORD CTPS5, 
I <r***<,*ans»ftft««!ir Ai>#,ft*<i««r****!i, ****** tftAS A j»**t*Aa«#«,«>ess«,**«ft**t*^ft 
P0T3I 



3 

P0T4 

1000. 

P0DA 



I PRG0 TEST ROUTINE 3 
lADDRESS OF NEXT ROUTINE 
ITEST ITERATION COUNT 
ISCOPE ENTRY POINT 



ITEST ABILITY TO REFERENCE PUNCH/PRINTER BUFFER CTPS) , 

MOV #P0DE,MACHER |SETUP MACHINE ERROR TRAP, 

P0DAI TST PTPB IREFERENCE PUNCH/PRINTER BUFFER^ 

SCOPE ISCOPE 

P0DEI ERROR lERROR, TRAPPED WHEN REFERENCINtS 

SCOPE IPUNCH/PRINTER BUFFER, £TPS) , 

I ***********************************************#**************** 



LAE 



MACYU 27 (657) 17-N0V».75 14106 
PRG0 « INPUT«OUTPUT LOGIC TESTS 



005316 
005320 
005322 
005324 



003326 
003334 
005342 
003350 
005352 
005354 
005356 
005364 
005372 
005374 
005376 

005400 
005402 
005404 
003406 



005410 
005416 
005424 
003426 
003434 
00S436 
005440 

003442 
003444 
005446 
005430 



003452 
005434 
005436 
003462 
003464 
005470 
003472 
003474 

003476 
005300 
003502 
005304 



000004 
005400 
001750 
003334 



012767 
032777 
032777 
001002 
104003 
104012 
042777 
032777 
001401 
104003 
104012 

000005 
003442 
000144 
005416 



012767 

032777 
104011 
032777 
001401 
104003 
104012 

000006 
003476 
000024 
003454 



104022 
104023 
005277 
104400 
103777 
100401 
104003 
104012 

000007 
003530 
001730 
005316 



000340 
000100 
000100 



000100 
000100 



172442 
173646 
173640 



173624 
173616 



000340 
000100 



172360 
173564 



000100 173554 



173526 
173S20 



P0T5 

1000, 

P0EA 



I PRG0 TEST ROUTINE 4 
lADDRESS OF NEXT ROUTINE 
ITEST ITERATION COUNT 
ISCOPE ENTRY POINT 



ITEST 
P0EAI 



ABILITY TO SET AND CLEAR READER/KYBD IE BIT* 



P0ECI 

|***»* 

P0T5I 



MOV 
BIS 
BIT 
BNE 
ERROR 
SCOPE 
BIC 
BIT 
BEQ 
ERROR 
SCOPE 



#PRTY7|PSW 
»8IT6,#TKS 
#BIT6,PTKS 
P0EB 



«IBIT6,#TKS 
#aiT6,#TKS 
P0EC 



ISET PRIORITY 7^ 
ISET ID BIT IN TKS, 
ICHECK ID BIT IN TKS 
IBRANCH IF ID BIT IS SET, 
lERROR 1 ID BIT NOT SET, 

ICLEAR ID BIT IN TKS 
ICHECK ID BIT IN TKS, 
IBRANCH IF ID BIT IS CLEARED, 
lERROR, ID BIT FAILED TO CLEAR9 
ISCOPE 



5 

P0T6 
100, 
P0FA 



I PRG0 TEST ROUTINE 3 
lADDRESS OF NEXT ROUTINE 
ITEST ITERATION COUNT 
ISCOPE ENTRY POINT 



ITEST 
P0FAI 



ABILITY TO CLEAR ID BIT WITH RESET INSTRUCTION* 



MOV 
BIS 
SRESET 
BIT 
BEQ 
ERROR 
SCOPE 



#PRTY7,PSW 
#BIT6,<9TKS 



#BIT6,fTKS 
,*4 



ISET PRIORITY 7, 
ISET ID BIT IN TKS 
IRESET 

ITEST ID BIT. 

IBRANCH IF ID BIT IS CLEAR, 

lERROR, RESET FAILED TO CLEAR ID BIT, 

ISCOPE 



P0T5I 



6 

P0T7 

20, 

P0GA 



I PRG0 TEST ROUTINE 6 
lADDRESS OF NEXT ROUTINE 
ITEST ITERATION COUNT 
ISCOPE ENTRY POINT 



ITEST THAT READER DONE BIT SETS SOMETIME AFTER RDR ENABLE, 

CHKASR 
P0GAI RE8ET2 

INC #TK8 

DELAYX 

TSTB #TK3 
BMI ,«4 
ERROR 
SCOPE 



lENABLE READER, 
IWAIT, 

ICHECK FOR DONE 
IBRANCH IF DONE BIT SET, 
IDONE NOT SET SOMETIME AFTER RDR ENB, 
ISCOPE 



P0T7I 



7 

P0T10 
1000, 
P0HA 



I PRG0 TIST ROUTINE 7 
lADDRESS OF NEXT ROUTINE 
ITEST ITERATION COUNT 
ISCOPE ENTRY POINT 



003506 104022 



ITEST THAT DONE BIT READS RELIABLY^ 
CHKASR 





HAC Y 1 1 




S7eN0V»7S HNI Wkm 4i 








INFUT«OUTFUT UOilG TlSfS 










10402S 










1 3^4 


9@§512 


004767 


174646 






» f # MKCAU f KNAOUR RSaWSwe CUnC @«CR Pnsrs wBNl isTg 


1 S&3 




103777 


171466 




PSH&I T®TB 


cino 1 T CO 1 rwR UUnS 


1 Bhk 


005332 


1004S1 






BM2 


.♦4 IBRANCH IF DONE FOUND SET. 


IS6T 




104001 






< mnon 


lERROR, DONS SIT NOT FOUND SET, 


i 36@ 


00§5i6 


103012 








ISCOPE 


i 869 














ISTB 




000010 






P0T1@I 10 


1 PROS TEST ROUTINE IS * 


IS^l 


00553S 


005364 






P0TU 


lAOORISS OF NEXT ROUTINE * 


1873 


005334 


000014 






20. 


ITEST ITERATION COUNT « 


i@T3 


003516 


005544 






?eiA 


ISCOPE ENTRY POINT t 


I87fl 










liittt lit iiiiii«iitii^iili'ei tilt t^iti^iiiili^iitii^ii'^iilitiiilitiiiiiiiiiii^^ttii^^t'k^^tt^tt^^^tt^tti^ii^^^ 


1 e r 3 










iTgST THAT RESET SUSAflS DONE SIT 




005540 


104012 






CHKA8R 




187? 


005542 


104023 






RESETS 




1878 


935544 


004767 


174614 




FeiAl aSR 


XTiAREAD lENASLE READER. COME BACK WHEN DONE SET, 


1879 


005510 


109011 






SRESET 


IIS8UE RESET, 


^ f f ® 




10S777 


173432 




TSTB 


*TK8 ITEST FOR DONE BIT 




005S36 


100001 






BPl 


.♦4 IBRANCH IF DONE BIT RESET, 


1 882 


005560 


104003 






ERROR 


lERROR, RESET FAILIB TO CLEAR DONIs 


1883 


005562 


104012 






SCOPE 


ISCOPE 


1884 










;«i««A#r^ftftft«r«««t«rA«ftft ft «A«rft««tii««^ft« «««««««««« «««ilk««diS!t!»!l!dA<^«Si£rdd«ii«#^«tiSlt$i»t 


i 885 


005564 


000011 






P0Tiii 11 


1 PRQ0 TEST ROUTINE 11 * 


1386 


005566 


003622 






P0T12 


1 ADDRESS OF NEXT ROUTINE « 


1 887 


005570 


000024 






20, 


ITEST ITERATION COUNT ft 


1 888 




005600 






P0JA 


ISCOPE ENTRY POINT • 


1889 












i 890 










rTEST THAT REFERENCING READER DATA BUFFER CLEARS DONE 


i89| 


003574 


104022 






CHKASR 




1 892 




104023 






RE8ET2 




i 893 




004767 


174360 




P0JAI JSR 


X7,AREAD lENABLE READER. RETURN WHEN DONE SET» 


1894 




103777 


173402 




TSTB 


•TKB IREFERENCE READ BUFFER, 


1 895 


Rats It 1 a 


105777 


173374 




TSTB 


#TKS ITEST FOR DONE BIT 


1898 


00361 4 


100001 






BPL 


.♦4 IBRANCH IF DONE NOT SET, 


1 897 


00561 6 


104003 






ERROR 


IREFERENCE TO BUFFER DID NOT RESET DONE, 


1898 




104012 






SCOPE 


ISCOPE 












1 ********«*******#*«****«******************«******«**********«********** 


1900 


0056S2 


000012 






P0T12I 12 


1 PRGB TEST ROUTINE 12 * 


1901 


005624 


005664 






P0T13 


1 ADDRESS OF NEXT ROUTINE ft 


1902 


005626 


000024 






20. 


ITEST ITERATION COUNT ft 


1903 


005630 


005634 






P0KA 


ISCOPE ENTRY POINT * 


1904 










I**************************** *********** ft**************************** 


1905 










ICHECK THAT BUS 


Y SETS SOMETIME BEFORE DONE SETS. 


1906 


005632 


104022 






CHKASR 




1907 


005634 


104023 






P0KAI RESET2 




1908 


005636 


005277 


173346 




INC 


#TK8 lENABLE READER. 


HAJN 


H AG Y 1 1 


27(6575 


17«N0V?« 


73 14106 PAGE 41 






PRG0 


INPUT«0UTPU7 LOGIC TESTS 










032777 


004000 


173340 


P0KBI BIT 


#B1T11,#TK8 IBUSY SETT 


« oil n 




001004 






BNE 


P0KC IBR IF YES, 


1 9 1 1 


005652 


105777 


173332 




TSTB 


•TKS INO.OONE SET? 


1912 


|g (3303(9 


100371 






BPL 


P0KB IBR IF NOT, 


1913 


i3B30OB 


104003 






ERROR 


IBUSY BIT FAILED TO SET BEFORE DONE SET, 




005662 


104012 






P0KCI SCOPE 




1 01 K 










;*********ft*******ft*ft*************ft**ft*ftft*******ft********ftft**ftftft*******ft* 


1014 
loi ^ 




000013 






P0T13I 13 


1 PRGB TEST ROUTINE 13 ft 


1 ° * 7 


005666 


005732 






P0T14 


lAODRESS OF NEXT ROUTINE ft 


1918 


t0K)3O r (9 


000024 






20. 


ITEST ITERATION COUNT * 


1919 


005672 


00S676 






P0LA 


ISCOPE ENTRY POINT • 


1920 










;*************ftft******ft*ft*******ft*********«***ft*«t*ft****ftftft***ft**ft*ftft**«** 


1921 










ITEST THAT DONE 


IS RESET BY START BIT (WHEN BUSY BECOMES SET) , 


1922 


0B3O7 4 


104022 






CHKASR 




1923 


005676 


104023 






P0LAI RE8ET2 




1 924 


m m K 7 fx n 


004767 


174460 




JSR 


X7,AREAD lENABLE READER, RETURN WHEN DONE SET. 


1925 


11 B V A /I 

1003 7 04 


005277 


173300 




INC 


PTKS lENABLE READER. 




1 ffi 

(0(33 f l k! 


032777 


004000 


173272 


BIT 


•BITll,#TKS IWAIT FOR BUSY TO SET, 


l"»c7 


0057 1 6 


001774 






BEQ 


,•6 


1 9S8 


005720 


105777 


173264 




TSTB 


#TKS ITEST FOR DONE BIT, 


« ni2 


005724 


100001 






BPL 


.♦4 IBRANCH IF DONE NOT SET, 


1 930 


005726 


104003 






ERROR 


lERROR. START BIT FAILED TO RESET DONE, 


1931 


005730 


104012 






SCOPE 


ISCOPE 


1932 












«*«ft*ft*ftftft*ftft**ftftftft**ft*ftft*ftft*ft***ft«**«ftft****ft****ft**ftftftftftft 


1933 




000014 






P0T14I 14 


1 PRO0 TEST ROUTINE 14 ft 


1934 


fa IS a f t yi 


006006 






P0Ti5 


1 ADDRESS OF NEXT ROUTINE ft 




ffiatif It. 
loiaa r Je 


001750 






1000, 


ITEST ITERATION COUNT ft 


1 OtL 




005760 






P0MA 


ISCOPE ENTRY POINT * 


1 937 










||**********ftftft*ft**ft*******ft**ft***«**ft*ft******ft«**********ft*ft«*ft*«*ftCr***** 


1938 










ITEST THAT READ 


BUFFER CAN BE READ RELIABLY. 


1 939 


005742 


104022 






CHKASR 




1940 


005744 


104023 






RE8ET2 




1941 


003 r 


004767 


174412 




JSR 


X7#AREAD lENABLE READER. RETURN WHEN DONE SET, 




003 r 3e 


U7767 


173234 


173403 


MOVB 


#TKB,CRBUF*1 IBUFFER CONTENTS TO CR8UF*l 


19^3 


003 r 00 


117767 


173226 


173376 


P0MAI MOVB 


#TKB,CRBUF IBUFFER CONTENTS TO CRBUF 


1944 


1003 ' oo 


126767 


173372 


173371 


CMPB 


CRBUF,CRBUF*1 ICOHPARE CONTENTS OF CRBUF AND CRBUF*! 


1 945 


003774 


001403 






BEQ 


P0MB IBRANCH IF SAME. 


1946 


005776 


016700 


173362 




MOV 


CRBUF, X0 INOT SAME. ERROR, HALT WITH 18T READ CHAR 


1947 


aaik 01019 

000006 


000000 






HALT 


IIN DATA BYTES LEFT, SUBSEQUENT READ IN DATA 


1948 


00900<f 


104012 






P0MBI SCOPE 




1949 










|***ftftftft***********ftft*ft**ft*ft***ft****«*****ftft****«****ft*ft*****ft***«****ft*ft 


1950 


wiaouiio 


000015 






P0T15I 15 


1 PRO0 TEST ROUTINE 15 ft 






006056 






P0T16 


1 ADDRESS OF NEXT ROUTINE ft 


1932 


00601 2 


001730 






1000, 


ITEST ITERATION COUNT ♦ 


1953 




006032 






P0NA 


ISCOPE ENTRY POINT « 


1954 










|****ft***«*****************ft«***ft**ftftftft*ftft*ftft*ft******ft«ftft«***ft**«**ftftftft«* 


1955 










ITEST THAT READER DONE BIT IS ABLE TO CAUSE INTERRUPT, IF THE INTERRUPT IS 


19S6 










iSERVICEDi IT WILL HAVE OCURRED AT CORRECT VECTOR, 


19S7 


006016 


104032 






CHKASR 




1938 


006020 


104006 






8TRDRV 


ISET UP READER VECTOR TO P0NC 


1919 


006022 


006034 






P0NC 




I960 


006024 


104023 






RESET2 




1961 


§06026 


004767 


174332 




JSR 


PCAREAD lENASLE READER, RETURN WHEN DONE SET, 


|9Sg 


006032 


803077 


173131 




P0NAI CLR 


•TKS IDISABLE READER INTERRUPTS 







itCiSTS 


1T»NQV»71 liiii 




4i 
























|f&3 


3SI@li 


WfV Gl « f 


171714 




Cl,R 


P$U 


IINABtl READSf^a RETURN NHSN OONi SITg 








SSi777 


000100 S73HS 




§IS 


#ilT6,fTKS 


liNASbi REAufR INTERnUrTi 




ifis 


i@6i3i 


000140 






NOP 








H&l 




104001 




AT§igS 


gdRDPI 




lERRQR. READER fASI.EO TO INTIRRUPTa 




|?&f 




104011 




?0Net 


3C0f»E 




IHERE IF INTERRUPT OCeURSa 




if6S 














If&f 




000316 




^07161 


16 




f PR80 TEST ROUTINE 16 




if?@ 




006136 






P0Ti7 




1 ADDRESS OP NEXT ROUTINE 




ifri 




vsf ft f 981 






1000. 




;TEST ITERATION COUNT 


* 




006064 


006101 










fSCOPI ENTRY POINT 


* 


1973 






















PTiST 


THAT DONE 


DOES NOT CAUSE 


INTERRUPT WITH PROCESIOR AT SAME 




|f?S 








I^RIORITY LiVfU 


AS THE READERS 


INTERRUPT REQUEST LEVEL, 






006066 


i040ga 






CHKASR 








i9?T 


006070 


104006 






8TR0RV 




I8ET READER VECTOR TO P0OE, 




HTa 


00607S 


006131 






P0QE 












104033 






RESET! 








i9S0 


006076 


004767 


174363 




JSR 


%7f ARiAO 


IENA8LE READER. RETURN NHEN DONE SET. 




I9il 


006102 


00S077 


173103 


P0OAI 


CLR 


fTKS 


IDI8ABLE READER INTERRUPTS. 




1991 


006106 


016767 


173110 171663 




MOV 


TKLVLiPSW 


ISET PROCESSOR TO SAME PRIORITY AS READER'S 


1983 


006114 


0S2777 


000100 173066 




ezs 


#8IT6,#TK8 


IENA9LE READER INTERRUPTS. 




1984 


006ieS 


000240 






NOP 




fNO OP. 




1985 


006134 


005077 


171060 




M 


#TK8 


lOK IF NO INTERRUPT OCCURS. 




1986 


006130 


10401S 






SCOPE 




I8C0PE 




198? 


00613a 


10«003 




P'0OEi 


ERROR 




f ERROR. READER ERRONEOUSLY INTERRUPTED 





.MAIN, 


MACYll 


27C657J 


17«N0V« 


75 14106 


PAGE 


43 






DZKLAE 


PRG0 - 


INPUT-OUTPUT LOGIC TESTS 










1988 
















IWITH PROCESSOR AT SAME PRIORITY 


1939 
















rLEVEL AS THE READER* OR THE READER 


1990 


006134 


104012 








SCOPE 




IIS AT HIGHER PRIORITY THAN SPECIFIED AT TKLVL. 


1991 










I************************************************************************ 


1992 


006136 


000017 






P0T17I 


17 




1 PRG0 TEST ROUTINE 17 * 


1993 


006140 


006222 








P0T20 




1 ADDRESS OF NEXT ROUTINE « 


1994 


006142 


001750 








1000. 




ITEST ITERATION COUNT * 


1995 


006144 


006162 








P0PA 




ISCQPE ENTRY POINT * 


1996 










1 ************************************************************************ 


1997 










ITEST 


THAT DONE 


CAUSES INTERRUPT WITH PROCESSOR AT PRIORITY ONE LEVEL LOWER 


1998 










f THAN 


THE READER 


•S INTERRUPT 


PRIORITY LEVEL. 


1999 


006146 


104022 








CHKASR 






2000 


006150 


104006 








3TRDRV 




ISET READER INTERRUPT SERVICE TO 


2001 


006152 


006214 








P0PB 




IP0PB. 


2002 


006154 


104023 








RESET2 






2003 


006156 


004767 


174202 






JSR 


X7,AREAD 


lENABLE READER. RETURN WHEN DONE SET, 


2004 


006162 


005077 


173022 




P0PAI 


CLR 


• IKS 


lOISABLE READER INTERRUPTS 


200S 


006166 


016767 


173030 


171602 




MOV 


TKLVL,PSW 


ISET PROCESSOR PRIORITY ONE LEVEL LOWER 


2006 


006174 


162767 


000040 


171574 




SUB 


«40,PSW 


ITHAN READER. (SPECIFIED AT TKLVL), 


2007 


006202 


052777 


000100 


173000 




BIS 


#BIT6,#TKS 


lENABLE READER INTERRUPTS. 


2008 


006210 


000240 








NOP 






2009 


006212 


104003 








ERROR 




IFAILED TO INTERRUPT WITH PC AT PRIORITY ONE LEVEL 


2010 
















IHERE IF INTERRUPT OCCURS. OK. POP STACK TWICE 


2011 


006214 


005077 


172770 




P0PBI 


CLR 


#TK3 


IDISABLE READER INTERRUPTS 


2012 


006220 


104012 








SCOPE 




ISCOPE 


2013 












2014 


006222 


000020 






P0T20I 


20 




1 PR60 TEST ROUTINE 30 « 


2015 


006224 


006326 








P0T21 




lADDRESS OF NEXT ROUTINE * 


2016 


006226 


001750 








1000. 




ITEST ITERATION COUNT * 


2017 


006230 


006242 








P0OA 




ISCOPE ENTRY POINT • 


2018 


















2019 










ITEST 


THAT DONE 


DOES NOT REINTERRUPT AFTER RTI WHEN DONE IS NOT CLEARED. 


2020 


006232 


104022 








CHKASR 






2021 


006234 


104023 








Ri8ET2 






2022 


006236 


004767 


174122 






JSR 


X7>AREAD 


lENABLE READER. RETURN WHEN DONE SET, 


2023 


006242 


104006 






P0QAI 


STRDRV 




ISET READER INTERRUPT SERVICE 


2024 


006244 


006276 








P0QC 




ITO P0QC. 


2025 


006246 


005077 


172736 






CLR 


#TKS 


IDISABLE READER INTERRUPTS, 


2026 


0062S2 


052777 


000100 


172730 




BIS 


#BIT6,*TK8 


lENABLE READER INTERRUPTS, 


2027 


006260 


005067 


171512 






CLR 


P3M 


ISET PRIORITY 0, 


2026 


006264 


000240 








NOP 






2029 


006266 


104003 








ERROR 




lERRORl FAILED TO INTERRUPT 


2030 


006270 


005077 


172714 






CLR 


#TK3 


IDISABLE READER INTERRUPTS, 


2031 


006274 


104012 








SCOPE 




ISCOPE 


2032 


006276 


012777 


006316 


172714 


P0QCi 


MOV 


#P0QE,#TKVTR 


ICHANOE INTERRUPT VECTOR TO P0QE 


2033 


006304 


012716 


006312 






MOV 


»P0QD,*X6 




2034 


006310 


000002 








RTI 




IRETURN FROM INTERRUPT 


2035 


006312 


000240 






P0QDI 


NOP 






2036 


006314 


000401 








BR 


.♦4 


lOK IF NO REINTERRUPT OCCURS, 


2037 


006316 


104003 






P0QEI 


ERROR 




IDONE REINTERRUPTED AFTER 


2038 
















IRTZ WITH DONE BIT LEFT ON. 


2039 


006330 


005077 


172664 






CLR 


#TK8 


IDISABLE READER INTERRUPTS, 


2040 


006324 


104012 








SCOPE 




ISCOPE. 


ii4i 
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INP»UT«OUT^UT LOSie TiiTS 








006326 


000011 






PSTill SI 


1 PR0B TUT NOUTXNf 11 t 


3BA3 


006330 


006410 






P0T22 


lADORISS or NEXT ROUTINE t 






001750 






1000. 


ITB8T XTSRATZON COUNT • 


3S43 


006334 


006344 






P0ltA 


I9C0PB ENTRY POINT ^ 














304? 










ITE8T ABILITY TO SET AND CLEAR 


PUNCH ZD BIT 


2048 


006316 


012767 


000340 


171433 


MOV iPRTYTiPIW 


ISET PRIORITY 7, 


§049 


006344 


S52777 


000100 


173643 


P0RAI BIS «8IT6,#TPS 


ISBT PUNCH ID BIT, 


i0§0 


006SS2 


032777 


000100 


172634 


BIT •BIT6,#TP8 


ICHECK PUNCH ID BIT, 






001092 






BNE .♦6 


IBRANCH If PUNCH ID BIT 18 SET. 




006362 


104003 






ERROR 


lERRORl, PUNCH ID BIT DID NOT SET. 


2033 


006364 


104012 






SCOPi 








042777 


000100 


173630 


BIC #S|T6,fTPS 


1 CLEAR PUNCH ID BIT, 




006374 


032777 


000100 


173612 


BIT iSIT6,#TPS 


ICHECK PUNCH ID BIT, 


2036 




001401 






B£Q .4>4 


IBRANCH If PUNCH ID BIT IS CLf^R 


203T 




104003 






ERROR 


IERR0R2. PUNCH ID BIT FAILED TO CLEAR. 


20^i 




104012 






SCOPE 


I8C0FI 














2060 




000033 






P0T22i 22 


1 PRO0 TEST ROUTINE 11 ^ 


2061 


0064 1 2 


006453 






P0T23 


lADORESS OF NEXT ROUTINE s» 


2063 


00641 4 


000034 






20. 


ITEST ITERATION COUNT • 


2063 


ID10B'* t O 


006436 






P0SA 


ISCOPE ENTRY POINT • 


2064 












2065 










ITCST ABILITY TO CLEAR PUNCH ID 


SIT WITH SESIT INST^UeTION 


2066 


006430 


012767 


000340 


171330 


MOV #PRTY7,PSW 


ISET PRIORITY 7. 


2067 


006436 


052777 


000100 


173560 


P0SAI BIS iBIT6,#TPS 


ISET PUNCH ID BIT, 


206S 


006434 


104011 






8RESET 


IRISET 


2069 


006436 


032777 


000100 


172S50 


BIT #BIT6,#TPS 


ICHECK PUNCH ID BIT, 




006444 


001401 






BEQ ,*4 


IBRANCH IF PUNCH IB BIT IS CLEAR. 


207 1 


006446 


104003 






ERROR 


lERROR. RESET FAILED TO CLEAR FUNCH 10 BIT^ 


2072 


006430 


104012 






SCOPE 


ISCOPE 


2073 












2074 


006452 


000023 






P0T23I 23 


1 PRC0 TEST RQUTlNg S3 ^ 


2075 


006454 


006536 






P0T24 


lADORESS OF NEXT ROUTINE * 


2076 


006456 


001750 






1000, 


ITEST ITERATION COUNT * 


2077 


006460 


006462 






P0TA 


ISCOPE ENTRY POINT * 


2078 












2079 










ITEST ABILITY TO SET AND CLEAR 


THE PUNCH MAINTENANCE BIT 


20S0 


006462 


052777 


000004 


173524 


P0TAI BIS •BIT2,#TPS 


ISET MAZNTANCE BIT, 


20Si 


006470 


032777 


000004 


172516 


BIT #BIT2,#TPS 


ICHECK MAINTENANCE BIT 


2082 


006476 


001002 






BNE s*6 


IBRANCH IF MAINTENANCE BIT SET, 


2083 




104003 






ERROR 


lERRORl. MAINTENANCE BIT FAILED TO SET. 


2084 


006502 


104012 






SCOPE 




2085 


006504 


042777 


000004 


172502 


BIC iBIT2,#TPS 


ICLEAR MAINTENANCE BIT, 


2086 


006512 


032777 


000004 


172474 


BIT •BIT2,#TP8 


ICHECK MAINTENANCE BIT 


2087 


006520 


001401 






BEQ ,♦4 


IBRANCH IF MAINTENANCE BIT IS CLEAR. 


2088 


006522 


104003 






ERROR 


IERR0R2. MAINTENANCE BIT FAILED TO CLEAR. 


2089 


006524 








SCOPE 


ISCOPE 


2090 












2091 


006526 


000024 






P0T24I 24 


1 PRG0 TEST ROUTINE 24 * 


2092 


006530 


006562 






P0T25 


lADDRESS OF NEXT ROUTINE * 


2093 


006532 


000024 






20, 


ITEST ITERATION COUNT * 


2094 


006534 


006536 






P0UA 


ISCOPE ENTRY POINT * 


2095 
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2096 










ITEST THAT RESET INSTRUCTION CLEARS THE MAINTENANCE BIT, 


2097 


006536 


052777 


000004 


172450 


P0UAI BIS #BIT2,#TPS 


ISET MAINTENANCE BIT. 


2098 


006544 


104011 






SRESET 


IISSUE RESET 


2099 


006546 


032777 


000004 


172440 


BIT #8172, #TPS 


ICHECK MAINTENANCE BIT 


2|00 


006554 


001401 






BEQ .♦4 


IBRANCH IF MAINTENANCE BIT CLEAR, 


2|01 


006556 


104003 






ERROR 


lERROR, RESET FAILED TO CLEAR 


2102 


006560 


104012 






SCOPE 


ITHE MAINTENANCE BIT, SCOPE, 


2103 










; ******************* ***«r****it*********yir**A********«*A**********«* 


2104 


006562 


000025 






P0T25t 25 


1 PRC0 TEST ROUTINE 25 ♦ 


2105 


006564 


006604 






P0T36 


lADORESS OF NEXT ROUTINE * 


2106 




001750 






1000. 


ITEST ITERATION COUNT * 


2107 


006570 


006572 






P0VA 


ISCOPE ENTRY POINT * 


2108 










\**i1t*li1t1iitti,1tiiii*1iiili 11**1,1,* It*** 11 *1tMliiiii*ii1i*1i1i1it1i**iitii1t1i1iit**ii1t*t*1i1i1itt1t*1t*tliii 


2109 










ITEST THAT RESET SETS THE PUNCH 


READY BIT, AND THAT READY CAN BE READ RELIABLY, 


2110 


006572 


105777 


172416 




P0VAI TSTB •TPS 


ICHECK PUNCH READY. 


C J * I 


VvOj I O 


100401 






BMI ,♦4 


IBRANCH IF PUNCH READY IS SET, 


2112 




104003 






ERROR 


lERROR, RESET FAILED TO SET READY, OR FAILED TO 


2113 


OIO#kli0l9 
SII0O wve 


104012 






SCOPE 


ISCOPE 


2114 










}**************************************** *****************************ii*t 


2115 


IM W O O Kl •* 


000026 






P0T26I 26 


1 PRG0 TEST ROUTINE 26 * 


2116 




006634 






P0T27 


lADORESS OF NEXT ROUTINE • 


2117 




000034 






30. 


ITEST ITERATION COUNT * 


2118 


006612 


006614 






P0WA 


ISCOPE ENTRY POINT <» 


2119 










)*************************************** t**it* ****** *****iiii** ************* 


2 1 20 










ITEST THAT PUNCH READY RESETS B 


Y LOADING PUNCH BUFFER, 


e 1 s 1 


0icifk#i 1 a 


104023 






P0WAI RESET2 




2122 


KIKIO V t Q 


003077 


172374 




CLR •TPB 


ILOAD PUNCH BUFFER 


2123 


006622 


105777 


172366 




TSTB #TPS 


ICHECK PUNCH READY BIT. 


2124 


006686 


100001 






BPL .♦4 


IBR IF PUNCH READY IS CLEAR. 


2125 


006630 


104003 






ERROR 


lERROR, BUFFER LOAD FAILED TO CLEAR READY, 


2136 


006632 


104012 






SCOPE 


ISCOPE 


3127 










1 ********************************************************* *************** 


3138 


006634 


000037 






P0T27I 27 


1 PRO0 TEST ROUTINE 27 * 


3139 


006636 


006670 






P0T30 


lADDRESS OF NEXT ROUTINE ♦ 


3|30 


006640 


000034 






20. 


ITEST ITERATION COUNT * 


2131 


006642 


006644 






P0XA 


ISCOPE ENTRY POINT * 


3132 










\ ************************************************************************ 


3133 










ITEST THAT BYTE LOAD OF PUNCH BUFFER +1 DOES NOT RESET READY. 


3134 




104033 






P0XAI RESeT2 




3135 


006646 


016700 


173344 




MOV TPBrXB 




3136 


006652 


005300 






INC X0 




2137 


006654 


105010 






CLRB 9X0 


IBYTE LOAD PUNCH BUFFER*! 


2138 


006656 


105777 


173333 




TSTB #TPS 


ICHECK PUNCH READY BIT 


2139 


006662 


100401 






BMI ,*4 


IBRANCH ZF PUNCH READY STZLL SET, 


2140 


006664 


104003 






ERROR 


lERROR, BYTE LOAD OF PUNCH BUFFER*! 


3141 


006666 


104012 






SCOPE 


ICLEARED READY, SCOPE 


3142 










^ *************************************************%********************** 


2143 


006670 


000030 






P0T30I 30 


1 PRG0 TEST ROUTZNE 30 • 


3144 


006673 


006733 






P0T31 


lADDRESS OF NEXT ROUTZNE t 


3145 


006674 


000034 






30. 


ITEST ZTERATZON COUNT • 


3146 


006676 


006700 






P0YA 


ISCOPE ENTRY POZNT • 


3147 










}************************************************************************ 


3148 










ITEST THAT PUNCH BECOMES READY 


80METZME AFTER BUFFER LOAD, 


3149 


§06790 


104013 






POYAI RESETS 







HACYU 


27C6ST3 


17»N0V» 
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PRgg » 


|N^UT»OUT^UT UOeie TiSTS 










001732 


001077 


IfgSIS 




cm 


#TPB 


, .OAO PUNCH lUFFfiB 




331106 


104430 










IWAIT, 




006710 


101777 


lTi30i 




T8TS 


ftP3 


fCHiCK PUNCH RgADY SITs 


i|S5 


00&714 


1034il 






BMZ 


e<»4 


IBRANCH ZF PUNCH igAOY IS iE?^ 


§134 


006716 


104003 






tnnon 




IREADY NOT SIT SONiTIME A^Tii SU?fiR LOAD 


liS3 


0S6730 


104012 






acoPi 




liCOPi 














ajs? 


006713 


000031 






P@T31I 31 




1 PR60 TEST ROUTINE 31 * 




006714 


006762 










rADDRgSS OF NEXT ROUTINE ^ 




006716 


0017S0 






1000, 




ITEST ITERATION COUNT « 




006730 


006736 






P02A 




I3CQPE ENTRY POINT « 


2|6ji 






















rTSST THAT PUNCH READY 81T CAN 


CAUSE AN ZNTiSRUPT, IF THE INTERRUPT 












|!9 SERVICSB, 


IT WILL HAVE OCCURRSO AT THE CORRget VICTOR, 


ii64 


006732 


104007 






8TPCHV 




ISET PUNCH INTERRUPT SERVICE 




006734 


006760 






P0IB 




ITO P0ZB 


2166 


006736 


005077 


172232 




P02AI CLR 


PTPS 


I018A8LS PUNCH iNTitiUPTS 


ill? 


006742 


00S067 


171030 




CIR 


PSW 


iSfT PRIORITY 


S163 


006746 


0S2777 


000100 


172240 


BZS 


#BIT6,fTP8 


lENABLE PUNCH INTERRUPTS, 


2|69 


006754 


000240 






NOP 






2170 


006756 


104003 






ERROR 




IPUNCH READY FAILED TO CAUSE 


2l7l 


006760 


104012 






P0ZBI SCOPE 




IINTERRUPT, SCOPE 


2172 












2173 


006762 


000032 






P0T32I 32 




1 PRS0 TEST ROUTINE 32 ft 


2174 


006764 


007032 






P0T33 




IA00RE8S OF NEST ROUTINE * 


2175 


006766 


0017S0 






1000, 




ITEST ITERATION COUNT a 


2176 


006770 


006776 






P0AAA 




ISCOPE ENTRY POINT * 


2177 












2178 










ITEST THAT PUNCH READY DOES NOT 


CAUSE AN INTERRUPT WITH PROCESSOR 


2179 










lAT SAME PRIORITY LEVEU A3 THE 


PUNCH INTERRUPT REQUEST LEVEL. 


21 80 


006772 


104007 






8TPCHV 




ISET PUNCH INTERRUPT SERVICE 


2181 


006774 


007026 






P0AAS 




ITO P0AAE, 


2182 


006776 


016767 


172224 


170772 


P0AAAI MOV 


TPLVL,P8W 


ISET PROCESSOR 70 SAMi PRIORITY AS PUNCH, 


2183 


007004 


005077 


172204 




CLR 


«fTP8 


IDISABLE PUNCH INTERRUPTS, 


2134 


007010 


052777 


000100 


172176 


BIS 


#BIT6,f>TPS 


lENABLE PUNCH INTERRUPTS, 


2185 


007016 


000240 






NOP 






2136 


007020 


005077 


172170 




P0AABI CI.R 


#TP8 


lOK IF NO INTERRUPT OCCURS, 


218? 


007024 


104012 






SCOPE 




ISCOPE 


2188 


007026 


104003 






P0AAEI ERROR 




lERROR, PUNCH INTERRUPTED WITH PROCESSOR 


2l8<3 


007030 


000773 






BR 


P0AAB 


ISET TO SAVE PRIORITY AS THE PUNCH, 


2190 












2191 


007032 


000033 






P0T33I 33 




1 PRG0 TEST ROUTINE 33 * 


2192 


007034 


007106 






P0T34 




lADORESS OF NEXT ROUTINE s 


2193 


007036 


001750 






1000, 




ITEST ITERATION COUNT ft 


2194 


007040 


007046 






P0BAA 




ISCOPE ENTRY POINT ft 


2195 












2196 










ITEST THAT THE 


PUNCH INTERRUPTS 


WITH PROCESSOR AT PRIORITY ONE LEVEL LOWEP 


2197 










ITMAN THE PUNCH PRiORITYg 




2198 


007042 


104007 






STPCHV 




ISET PUNCH INTERRUPT SERVICE 


2199 


007044 


007100 






P0BAC 




ITO P0BAC. 


2200 


007046 


005077 


172142 




P0BAAI CLR 


#TPS 


IDISABLE PUNCH INTERRUPTS 


2201 


007052 


016767 


172150 


170716 


MOV 


TPLVL,PSW 


ISET PROCESSOR PRIORITY ONE LEVEL 


2202 


007060 


162767 


000040 


170710 


SUB 


#40, PSW 


ILOWER THAN PUNCH PRIORITY 


2203 


007066 


052777 


000100 


172120 


BIS 


#BIT6,#TPS 


lENABLE PUNCH INTERRUPTS 


.MAIN, 


MACV 1 1 


27C657) 
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2204 


007074 


000240 






NOP 






2205 


007076 


104003 






ERROR 




lERROR, PUNCH FAILED TO INTERRUPT, 


2206 


007100 


005077 


172110 




P0BACI CIR 


#TPS 


ITHE STOCK TWICE, DISABLE PUNCH INTERRUPT 


2207 


007104 


104012 






SCOPE 




ISCOPE 


2208 












****************************************** 


2209 


007 106 


000034 






P0T34I 34 




1 PRG0 TEST ROUTINE 34 ft 


2210 


007110 


007202 






P0T35 




lADORESS OF NEXT ROUTINE ft 


221 1 


0071 12 


001750 






1000, 




ITEST ITERATION COUNT ft 


2212 


0071 1 4 


007116 






P0CAA 




ISCOPE ENTRY POINT ft 


2213 












2214 










;TEST THAT PUNCH READY DOES NOT 


REINTERRUPT AFTER RTI WHEN READY 


2215 










IBIT HAS NOT BEEN RESET, 




2216 


0071 16 


104007 






P0CAAI STPCHV 




ISET PUNCH INTERRUPT SERVICE TO 


2217 


007 1 20 


007152 






P0CAC 




ITO P0CAC, 


2216 


007122 


005077 


172066 




CLR 


#TPS 


IDISABLE PUNCH INTERRUPTS 


2219 


007 1 26 


005067 


170644 




CLR 


PSW 


ISET PROCESSOR PRIORITY TO 


2220 


007 1 32 


052777 


000100 


172054 


BIS 


#BIT6,#TPS 


lENABLE PUNCH INTERRUPTS 


2221 


007 1 40 


000240 






NOP 






2222 


0071 42 


104003 






ERROR 




lERROR 1, PUNCH FAILED TO INTERRUPT. 


2223 


007 1 44 


005077 


172044 




CLR 


PTPS 


IDISABLE PUNCH INTERRUPT, 


2224 


007150 


104012 






SCOPE 




ISCOPE 


2225 


0071 52 


012777 


007172 


172044 


P0CACI MOV 


»P0CAE,#TPVTR 


IHERE IF INTERRUPT OCCURS, CHANGE 


2226 


007160 


012716 


007166 




MOV 


»P0CAD,PX6 


IPUNCH VECTOR TO P0CAE AND EXIT 


2227 


007164 


000002 






RTI 




IINTERRUPT 


2228 


007166 


000240 






P0CADI NOP 




lOK IF NO REINTERRUPT OCCURS 


2229 


0071 70 


000401 






BR 


P0CAF 




2230 


007172 


104003 






P0CAEI ERROR 




lERR 2, PUNCH REINTERRUPTEO AFTER 


2231 


007174 


005077 


172014 




P0CAFI CLR 


#TPS 


IRTI WITH READY BIT LEFT ON 


2232 


007200 


104012 






SCOPE 




ISCOPE 


2233 












2234 


007202 


000035 






P0T35I 35 




1 PRG0 TEST ROUTINE 35 ft 


2235 


007204 


007260 






P0T36 




lADORESS OF NEXT ROUTINE ft 


2236 


007206 


001750 






1000, 




ITEST ITERATION COUNT ft 


2237 


007210 


007216 






P0OAA 




ISCOPE ENTRY POINT ft 


2238 












2239 










ITEST THAT THE 


PUNCH INTERRUPTS 


IMMEDIATELY UPON LOWERING 


2240 










^PROCESSOR PRIORITY TO 0« 




2241 


007212 


104007 






STPCHV 




ISET PUNCH INTERRUPT 


2242 


007214 


007252 






P0DAC 




ITO P0DAC. 


2243 


007216 


012767 


000340 


170552 


P0DAAI MOV 


#PRTY7,PSW 


ISET PROCESSOR PRIORITY TO 7, 


2244 


007224 


005077 


171764 




CLR 


#TPS 


IDISABLE PUNCH INTERRUPTS 


2245 


007230 


052777 


000100 


171756 


BIS 


#BIT6,I>TPS 


lENABLE PUNCH INTERRUPTS 


2246 


007236 


005067 


170534 




CLR 


PSW 


ILOWER PROCESSOR PRIORITY TO 0, 


2247 


007242 


012767 


000340 


170526 


MOV 


«PRTY7,PSW 


IRAISE PRIORITY TO 7, 


2248 


007250 


104003 






ERROR 




lERROR, PUNCH FAILED TO INTERRUPT 


2249 




00S0f7 










IIMMEOIATELY AFTER CP PRIORITY WAS SET TO 


22S0 


007252 


171736 




P0DACi CLR 


#TPS 


IDISABLE PUNCH INTERRUPTS 


22Sl 


007256 


104012 






SCOPE 




ISCOPE 


22S2 












22S3 


007260 


000036 






P0T36I 36 




1 PRG0 TEST ROUTINE 36 ft 


2254 


007262 


007342 






P0T37 




lADORESS OF NEXT ROUTINE ft 


2255 


007264 


000024 






20, 




ITEST ITERATION COUNT ft 


2256 


007266 


007276 






P0EAA 




ISCOPE ENTRY POINT ft 


2257 
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PFtG0 «i 


INPUT»OUTPUT lOSlC TISTi 








2316 










ITEST ?Qn CQiRiCT OPIRATION 


OF THI WAIT INSTRUCTIONS A WAIT iNSTRUeTISN 












»13 PSRPORMiD WHILE WAITINS 


FOR A PUNCH INTERRUPT, WHEN THi iNTIRRUFf 


2260 










fOeCU^I, THi SSRVICE ^QUTINg 


CHANaiS THE WAIT INSTRUCTION TO AN ERROR 


32l)| 










rCAUi. AND THIN 


EXITS THE INTERRUPT WITH AN RTI, EXITING THi INTERRUPT 


2262 










fSHQu^D nifiinu 


CONTROL TO THE INSTRUCTION POLLOWXNB THE WAIT INSTRUCTION. 


2263 










IIP CONTROL IS 


INSTEAD RETURNED TO THE SAME LOCATION WHERE THE WAIT 


2264 










fINSTRUCTlQN WAS LOCATSD AN 


ERROR CALL WILL OCCUR, INOICATINO A FAILURE 


2265 










I0¥ THE WAIT INSTRUCTlONa 




2266 


007270 


104023 






RESiTI 






2267 


007272 


104007 






STPCHV 




ISET PUNCH INTERRUPT SERVICE 


2263 


007274 


007332 






PBIAC 




ITO P0EAC, 


2269 


vv 1 C r O 


012767 


000001 


000016 


P0iAAl MOV 


iWAIT,P0EAB 


IMOVE WAIT INSTRUCTION TO P0EAB 


2270 


007304 


00S077 


171706 




CLR 


#TPS 


ILOAO PUNCH BUFFER (ENABLES PUNCH) 


2271 


007310 


052777 


000100 


171676 


BIS 


#8IT6,^TPa 


lENABLE PUNCH INTERRUPTS 


2272 


007316 


00S06? 


170434 




CLR 


PSW 


ISET PRIORITY 0, 


2273 


007322 


000000 






P0EAai OPfN 




ITHIS LOCATION CAN BE EITHER 
















|A WAIT INSTRUCTION OR AN ERROR CALL. 


2275 














IIF AN ERROR CALL IS EXECUTED, IT 


2276 














IINDICATES A FAILURE OF THE WAIT INSTRUCTION. 


2277 


007324 


005077 


171664 




CLR 


#TPS 


IDISABLE PUNCH INTERRUPTS 


2278 


1010 r J Jlo 


104012 






SCOPE 




ISCOPE 


2279 




012767 


104003 


177762 


P0EACi MOV 


#ERRORrP0EAB 


IMOVE ERROR CALL TO P0EAB, 


2260 


1010 f Ji||0 


000002 






RTI 




lEXIT INTERRUPT, 


2261 












2262 


007342 


000037 






P0T371 37 




1 PRG0 TEST ROUTINE 37 * 


2263 


007344 


007402 






P0T40 




lADDRESS OF NEXT ROUTINE * 


2284 


007346 


000024 






20, 




ITEST ITERATION COUNT * 


2265 


007350 


0073S4 






P0FAA 




ISCOPE ENTRY POINT * 


2266 












2267 










ITEST THAT LOADING THE PUNCH 


BUFFER WITH THE MAINTENANCE BIT SET 


2268 










ICAUSES THE READER DONE BIT 


TO SET SOMETIME AFTER, 


2269 


007352 


104023 






RgSET2 






2290 


007354 


052777 


000004 


171632 


P0FAAI BIS 


#BIT2,PTPS 


ISET MAINTENANCE BIT 


229 1 




005077 


171630 




CLR 


#TPB 


ILOAD PUNCH BUFFER 


ee^e 


007366 


104400 






DELAYX 




IWAIT. 


2293 


007370 


105777 


171614 




T8TB 


iTKS 


ITEST READER DONE BIT 


2294 


007374 


100401 






BMI 


,*4 


IBRANCH IF READER DONE BIT SET, 


2295 


007376 


104003 






ERROR 




lERROR. SOMETIME AFTER PUNCH 


2296 














IBUFFER LOAD WITH MAINTENANCE BIT 


2297 














ISET THE READER DONE BIT WAS NOT SET 


2298 


1010 1 Hioia 


104012 






SCOPE 




ISCOPE 


2299 










1 ** 11^ it It tilt ^ it* ^fitiii it tiii* otitis iiiiii til, lilt ii 11*1** ii it it « 11 it^^ 


2300 


007402 


000040 






P0T40i 40 




1 PRG0 TEST ROUTINE 40 * 


230 1 


007404 


007472 






P0T41 




lADDRESS OF NEXT ROUTINE * 


2302 


lie f "f WW 


000024 






20, 




ITEST ITERATION COUNT * 


2303 


007410 


007416 






P0GAA 




ISCOPE ENTRY POINT « 


2304 










|»*«t*«f*«l!tlll**«*«l*«t*ft«I*»*ftfta** 




2305 










ITEST THAT CLEARING PUNCH READT AND/OR IE BIT CLEARS PUNCH INTERRUPT RE0UEST, 


2306 


007412 


104007 






STPCHV 




ISET PUNCH VECTOR TO P06AB. 


2307 


007414 


007466 






P0GAB 






2306 


007416 


104023 






P0GAAI RESET2 






2309 


007420 


012767 


000340 


170350 


MOV 


#PRTY7,PSW 


ISET PRIORITY 7, 


2310 


007426 


052777 


000100 


171560 


BIS 


#8IT6,#TPS 


lENABLE PUNCH INTERRUPTS. 


23U 


007434 


005077 


171556 




CLR 


PTP8 


lOUTPUT CHAR, 
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02KLAE 


PRG0 - 


inputbOutput logic tests 








2312 


007440 


105777 


171550 




TSTB 


PTPS 


IWAIT FOR PUNCH READY, 


2313 


007444 


100375 






BPL 


.•4 




2314 


007446 


005077 


171542 




CLR 


♦ TPS 


IDISABLE PUNCH INTERRUPTS, 


2315 


007452 


005077 


171540 




CLR 


#TPB 


ILOAD BUFFER TO CLEAR PUNCH READY, 


2316 


007456 


005067 


170314 




CLR 


PSW 


ISET PRIORITY 0, 


23i7 


007462 


000240 






NOP 






2318 


007464 


104012 






SCOPE 




lOK IF NO INTERRUPT OCCURS, 


2319 


007466 


104003 






P06Aat ERROR 




IREADY CLEAR AND/OR IE BIT CLEAR DID NOT 


2320 


007470 


104012 






SCOPE 




IPREVENT PUNCH/PRINTER INTERRUPT. 


232i 














1 (INTERRUPT REQUEST DID NOT CLEAR,) 


2322 










|«ft)!r«tt!(i«««A«r«tft««^«A^««ft<i$l!«li«ift«i»«t«««««ft««r«r«ft«itt)ftftft«ftj!i«iA!»ft««;«d«&« 


2323 


007472 


000041 






P0T41I 41 




1 PRG0 TEST ROUTINE 41 * 


2324 


007474 


007570 






P0T42 




lADDRESS OF NEXT ROUTINE * 


2325 


007476 


000024 






20, 




ITEST ITERATION COUNT « 


2326 




007506 






P0HAA 




ISCOPE ENTRY POINT * 


2327 










|fti»ftAft#«i*«««rft««ftiir«)»ft»ft««i«««t»«i»«ft««f««A««A«ftfti^*««ril^«fti»«^ft«»d«« 


2326 










ITEST THAT CLEARING READER DONE AND/OR IE BIT CLEARS READER INTERRUPT ReQUgST 


2329 


007502 


104006 






STRORV 




ISET READER VECTOR TO P0HAB. 


2330 


007504 


007564 






P0HAB 








01017101^ 


104023 






P0HAAI RESET2 






2332 


01017^ i 01 
v w r 3 i 10 


012767 


000340 


170260 


MOV 


#PRTY7,PSW 


ISET PRIORITY 7, 


2333 


0075 1 6 


052777 


000004 


171470 


BIS 


#B1T2,#TPS 


ISET MAINTENANCE MODE, 


2334 


007524 


005077 


171466 




CLR 


#TPB 


lOUTPUT CHAR. 


2335 


0I0I7'$1OI 


052777 


000100 


171452 


BIS 


«BIT6,#TKS 


lENABLE READER INTERRUPTS, 


2336 


007536 


105777 


171446 




TSTB 


♦ TKS 


IWAIT FOR READER DONE. 


2337 


007542 


100375 






BPL 


,"4 




2336 


007544 


005077 


171440 




CLR 


#TKS 


IDISABLE READER INTERRUPTS. 


2339 


01 0)7^'! 01 

(OKI r 9910 


005777 


171436 




TS7 


HTKB 


ICLEAR READER DONE, 


2340 


007554 


005067 


170216 




CLR 


PSW 


ISET PRIORITY 0, 


2341 


007560 


000240 






NOP 






2342 


007562 


104012 






SCOPE 




lOK IF NO INTERRUPT OCCURS, 


2343 


007564 


104003 






P0HABi ERROR 




IDONE CLEARED AND/OR IE CLEARED DID NOT 


2344 


007566 


104012 






SCOPE 




IPREVENT READER INTERRUPT, 


2345 












2346 


007570 


000042 






P0T42! 42 




1 PRG0 TEST ROUTINE 42 * 


2347 


007572 


007620 






P0T43 




lADDRESS OF NEXT ROUTINE « 


2346 


007574 


001000 






1000 




ITEST ITERATION COUNT « 


2349 


007576 


007600 






P0JAA 




ISCOPE ENTRY POINT ft 


2350 










|««ft««««ft«ft*ft«ft««r««i!rAft«d!ft««««««t««ft«rft«ftd««««««ift««rA«««i««r«««^<»«f#ts»^!»^ 


2351 










ITEST THE OLllA 


,8 KEYBOARD JUMPERS ARE CUT PROPERLY 


2352 


007600 


012777 


173476 


171402 


P0JAAI MOV 


#173476, »TKS 


lATTEMpT TO SET NON»SETABLE BITS 


23S3 


007606 


005777 


171376 




T8T 


PTKS 


IDIO ANY SETT 


2354 


0076IS 


001401 






BEQ 


,♦4 


IBR IF NO 


23S5 


007614 


104003 






ERROR 






2356 


007616 


104012 






SCOPE 






23S7 










|««ft«««Aftftft««ft«!'»»«d«!»ft««ft«r«ft«ti»««l««f«r<»fte!l»«li!Afti$««t»««)i»«fk«ft^«S0!^#ig««t»«^t 


2356 


007620 


000043 






P0T43I 43 




1 PRC0 TEST ROUTINE 43 * 


2359 


007622 


177777 






P0TLST 




lADDRESS OF NEXT ROUTINE ft 


2360 


007624 


001000 






1000 




ITEST ITERATION COUNT * 


2361 


007626 


007630 






P0KAA 




ISCOPE ENTRY POINT « 


2362 










|**«««********«i«**************«t«r**«***A*************«******««***ft*ft*«*ft** 


2363 










ITEST THE DLllA 


fB PRINTER JUMPERS ARE CUT PROPERLY 


2364 


007630 


012777 


177473 


171356 


P0KAAI MOV 


•177473, #TPS 


lATTEMPT TO SET NON-SETABLE BITS 


2365 


007636 


022777 


000200 


171310 


CMP 


•8IT7,#TPS 


IDID ANY SETT 
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MACYU 
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DZKLAE 


PRGl READER TEST 








2369 










.SBTTl 


PRGl READER TEST 


a3T0 




000001 






Z»l 




asTi 




177777 






XB"1 




23T2 


007652 


012767 


007706 


171354 


PRGll MOV 


iPlT0,K5TART ISET ADDRESS OF FIRST ROUTINE 


2373 


007660 


012767 


177760 


173704 


MOV 


#177760, RCMSK 


237a 


007666 


012767 


177400 


173310 


MOV 


#177400, STLMSK ISET STALL LIMIT, 


2375 


007674 


032767 


040000 


171346 


BIS 


#8IT14,PRGI0 /ALLOW STALLS 


2376 


007702 


000167 


171736 




JMP 


SRSET IQO GET STARTED. 


2377 










I******************************************************************** 


2378 


007706 


000000 






PIT0I 


1 PRGl TEST ROUTINE 8 * 


2379 


007710 


007734 






PlTl 


IA0DRES8 OF NEXT ROUTINE • 


2360 


007712 


003720 






2000, 


ITEST ITERATION COUNT ♦ 


2361 


007714 


007722 






PIAA 


fSCOPC ENTRY POINT * 


2382 










******llt******«****A*******A*** 


2363 










IREAO AND CHECK 


2000 CHARACTERS OF SPECIAL BINARY COUNT PATTERN, FULL SPEED. 


2364 


007716 


004767 


173714 




JSR 


X7,BSYNC ISYNC READER? SET ERROR COUNTER, 


2385 


007722 


004767 


172644 




PlAAi JSR 


X7, BREAD IQO READ CHARACTER 


2386 


007726 


004767 


173644 




asR 


X7»BCHECK |G0 CHECK CHARACTER READ. 


2387 


007732 


104012 






SCOPE 


ISCOPE 


2388 










;****************«****************«*********************************«*** 


2389 


007734 


000001 






PlTll 1 


1 PRGl TEST ROUTINE I * 


2390 


007736 


007764 






P1T2 


IAD0RES8 OF NEXT ROUTINE * 


239| 


007740 


001750 






1000, 


ITEST ITERATION COUNT * 


2392 


007742 


007750 






P18A 


ISCOPE ENTRY POINT * 


2393 










1 


239a 










IREAD AND CHECK 


1000 CHARACTERS OF SPECIAL BINARY COUNT PATTERN. 


2395 










IRANOOM STALL BETWEEN CHARACTERS, 


2396 


007744 


004767 


173666 




JSR 


X7,BSYNC ISYNC READERI SET ERROR COUNTER 


2397 


007750 


104002 






PIBAJ STALL 


IRANDOM STALL 


2398 


007752 


004767 


172614 




JSR 


X7, BREAD IGO READ CHARACTER 


2399 


0077S6 


004767 


173614 




JSR 


X7,BCHECK IGO CHECK CHARACTER READ 


2400 


007762 


104012 






SCOPE 


ISCOPE 


2401 










I********************************************************************* 


2402 


007764 


000002 






P1T2I 2 


1 PRGl TEST ROUTINE 2 • 


2403 


007766 


177777 






PITLST 


lADDRESS OF NEXT ROUTINE * 


2404 


007770 


000310 






200. 


ITEST ITERATION COUNT * 


2405 


007772 


010000 






PICA 


ISCOPE ENTRY POINT • 


2406 












2407 










IREAD AND CHECK 


200 CHARACTER GROUPS OF SPECIAL BINARY COUNT PATTERN, 


2406 










IRANDOM LENGTH 




2409 










IGROUPS (BETWEEN I AND 15) , RANDOM STALL BETWEEN GROUPS (0 TO 127 MSECS) . 


2410 


007774 


004767 


173636 




JSR 


X7,BSYNC ISYNC READERI SET ERROR COUNTER, 


2411 


010000 


004767 


173546 




PICAI JSR 


X7,GRCNT lOENERATE RANDOM CHARACTER COUNT. 


2412 


010004 


104002 






STALL 


IRANDOM STALL C0 TO 127 MSECS) 


2413 


010006 


004767 


172360 




PICCI JSR 


X7, BREAD IGO READ CHARATER 


2414 


010012 


004767 


173560 




JSR 


X7»BCHECK IGO CHECK CHARACTER READ 


2415 


010016 


005367 


173552 




DEC 


RNCNT IDECRCMENT RANDOM CHAR COUNT 


2416 


010022 


001371 






BNE 


PlCC IGO READ AGAIN IF COUNT NOT 0, 


2417 


010024 


104012 






SCOPE 


ISCOPE 







i7CiST) 


17*sN0¥« 


7S 14116 FAii 


ii 








mQimpnimgn tests 
























.IBTTL 


PR02>PRXNTCR TESTS 






mmmaaa 
vvvvvtS 








lil 






3420 




1 777T7 








«)(R<1 






2421 


B 1 Sole 




mi eifl&ei 

D t wKiaSI 


171200 




MOV 


•P8TB,KSTART 


fSST ADDRESS IF tST ROUTINE, 


2422 




052767 


nflflaflfii 

SilDldSBv 


171206 




SIS 


•BXT7,PR0XD 




2423 


1 0042 


012767 


17760S 


173134 




HOV 


#177600, 8TLH8K 


ISET STALL LIMIT 


2424 




004767 


1 74S60 






J§R 


X7,STBP 


ISET UP BUFFER 


242S 




000 1 67 


171S64 






JMP 


8RSET 


ISO OET STARTED. 


2426 












2427 




n (8 a a a la 






PiT0! 







1 PR08 TEST ROUTINE B « 


2423 


010062 


010106 








P2T1 




f ADDRESS OF NEXT ROUTINE • 


2429 












2430 










ICARR1A6E RETURN TEST, 




2431 


010064 


104000 








TYPE 




rTYPE TITLE. 


2412 


010066 


014366 








CRTST 






2433 




012767 


000 1 ee 


171264 




MOV 


•62,fRCNT 




2434 


010076 


104015 








CK37 






2435 


010100 


162767 


BBBBI 1 


171234 




SUB 


•9,,RCNT 




2436 


010109 


1 1 2700 


BBB I J*l 






MOVB 


i'N»X0 


IPRINT 


2437 


010112 


0B«i7 07 


174260 






J3R 


XTiUSPCM 




2433 


010116 


016767 


171240 


171260 




MOV 


RCNTiCTRA 


IRCNT TO CTRA 


2439 


010124 


005367 


17 1254 




CT0AI 


DEC 


CTRA 


IDECREMENT CTRA 


2440 




n A t am 4 
BB jiBBI 








BNE 


CT0B 


IBRANCH IF NOT 


2441 


010132 


104012 








SCOPE 




;0. SCOPE 


2442 


010134 


016767 


171244 


171244 


CT0BI 


MOV 


CTRAiCTRB 


1 SPACE COUNT TO CTRB. 


2443 


010142 


1 12700 


BbBB^B 




CT0CI 


MOVB 


•40, %0 




2444 


010146 




1 74224 






J9R 


%7,LSPCH 


rSPACE. 


244S 


0101S2 


B0SS67 


171230 






DEC 


CTRB 


IDECREMENT CTRB. 


2446 


010156 


00 1371 








BNE 


CT0C 


IBRANCH IF NOT DONE SPACING. 


2447 


010160 


1 1 2700 


aaaa 4 s 
BBBulS 






MOVB 


•1S,X0 




2446 


u 1 1 B<i 










JSR 


X7,USPCH 


ICARRIAGE RETURN, 


2449 


010170 


004767 


1 74802 






J3R 


X7,LSPCH 


IDUMMY CYCLE. 


2450 


010174 


1 12700 


BBBB37 






MOVB 


i»/,X0 




2451 


B10CHO 


004767 


174172 






JSR 


X7,LSPCH 


IPRINT V", 


24S2 


fil 4 flI 9 fH /I 

B 1 0cB(| 


BB07t»7 








5R 


CT0A 




2453 












2454 




BBuBB 1 






P2T1I 


1 




1 PRG2 TEST ROUTINE 1 * 


24S5 


010210 


1 0272 








P2T2 




lADDRESS OF NEXT ROUTINE n 


2456 












2437 










IRIGHT 


MARGIN 


TEST 




2453 


_ 

1021 c 










TYPE 




ITYPE TITLE 


2459 


010214 










RMTST 






2460 


010216 


012767 


000016 


171160 




MOV 


#14,, CTRA 


ISET UP FOR 33/33 


2461 


010224 


012767 


014347 


000034 




MOV 


#RM33B,RMB 




2462 


010232 


104015 








CK37 




137 


2463 


010234 


000406 








BR 


CTIA 


INO 


2464 


010236 


012767 


000017 


171140 




MOV 


«13,,CTRA 


IYE8. 


2465 


010244 


012767 


014353 


000014 




MOV 


#RM37A,RMB 


ISET UP FOR 37, 


2466 


010232 


104000 






CTIAI 


TYPE 




ITYPE^— «I 


2467 


010254 


014341 








RM33A 






2463 


010256 


003367 


171122 






DEC 


CTRA 


IDONE N TIMES. 


2469 


010262 


001373 








BNE 


CTIA 


IBRANCH IF NOT N TIMES 


2470 


010264 


104000 








TYPE 




|TYPE«I«. 


2471 


010266 


000000 






RHBi 


OPEN 







.MAIN, 
DZKLAE 
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2472 


010270 


104012 








SCOPE 




I3C0PE, 


2473 












2474 


010272 


000002 






P2T2I 


2 




1 PRG2 TEST ROUTINE 2 * 


2475 


010274 


010426 








P2T3 




lADDRESS OF NEXT ROUTINE • 


2476 










I*********************************************************************** 


2477 










ISPACE 


TEST 






2473 


010276 


104000 








TYPE 




ITYPE TITLE, 


2479 


010300 


014445 








SPTST 






2480 


010302 


012767 


000044 


171074 




MOV 


*36.iCTRA 


133/35 COUNT TO CTRA, 


2431 


010310 


104000 






CT2AI 


TYPE 




ITYPE SPACE, \, 


2432 


010312 


014363 








SPT8TC 






2433 


010314 


005367 


171064 






DEC 


CTRA 


IDONE TIMES SET IN CTRAt 


2434 


010320 


001373 








BNE 


CT2A 


IBRANCH IF NOT DONE 


2435 


010322 


012767 


000044 


171034 




MOV 


#36., CTRA 


ISET UP CTRA COUNT FOR 33/35 


2436 


010330 


012767 


000001 


171050 


CT2BI 


MOV 


#1,CTRB 




2437 


010336 


016767 


171044 


171044 


CT2CI 


MOV 


CTRB,CTRC 




2488 


010344 


112700 


000013 






MOVB 


il5»X0 


ICARRIAGE RETURN, 


2439 


010330 


004767 


174022 






JSR 


X7,LSPCH 




2490 


010334 


004767 


174016 






JSR 


X7,LSPCH 


IDUMMY CYCLE, 


2491 


010360 


112700 


000040 




CT2DI 


MOVB 


#40, X0 


ISPACE NUMBER OF TIMES 


2492 


010364 


004767 


174006 






JSR 


X7,LSPCH 


ISET IN CTRC, 


2493 


010370 


005367 


171014 






DEC 


CTRC 


IDONE SPACING, 


2494 


010374 


001371 








BNE 


CT20 


IBRANCH IF NOT DONE SPACING, 


2495 


010376 


112700 


000037 






MOVB 


#«/,X0 


IDONE, TYPE A "/", 


2496 


010402 


004767 


173770 






JSR 


X7,LSPCH 




2497 


010406 


005367 


170772 






DEC 


CTRA 


IDONE 36 TIMES? 


2493 


010412 


001001 








BNE 


CT2E 


IBRANCH IF NOT DONE, 


2499 


010414 


104012 








SCOPE 




IDONE. SCOPE. 


2500 


010416 


062767 


000002 


170762 


CT2EI 


ADD 


#2fCTRB 


IMODIFY CTRB FOR NEXT TRY. 


2501 


010424 


000744 








BR 


CT2C 


IGQ DO IT AGAIN, 


2502 










1 ************************************************************************ 


2503 


010426 


000003 






P2T3I 


3 




1 PR62 TEST ROUTINE 3 * 


2504 


010430 


010520 








P2T4 




lADDRESS OF NEXT ROUTINE • 


2505 










I************************************************************************ 


2506 










ILINE 


FEED TEST 






2507 


010432 


104000 








TYPE 




ITYPE TITLE 


2508 


010434 


014464 








LFTST 






2509 


010436 


052767 


040000 


170604 




BIS 


#BIT14,PRGID 


1 ALLOW STALLS. 


2510 


010444 


012767 


000110 


170732 




MOV 


•72., CTRA 


ISET 33/35 LINE FEED COUNT, 


2311 


010432 


104015 








CK37 




137? 


2312 


010434 


000403 








BR 


CT3A 


INO. 


2513 


010436 


062767 


000011 


170720 




ADD 


•9,, CTRA 


1 INCREMENT LINE FEED COUNT BY 9. 


2514 


010464 


112700 


000134 




CT3AI 


MOVB 


•«N,X0 


ITYPE »S" 


2313 


010470 


004767 


173702 






JSR 


X7,LSPCH 




2516 


010474 


112700 


000012 






MOVB 


•I2»X0 


ILINE FEED, 


2517 


010300 


004767 


173672 






JSR 


X7,LSPCH 




2513 


010504 


005367 


170674 






DEC 


CTRA 


IDONE N TIMES? 


2519 


010310 


001001 








BNE 


CTSB 


IBRANCH IF NOT DONE, 


2520 


010512 


104012 








SCOPE 




IDONE, SCOPE 


2321 


010314 


104002 






CT3BI 


STALL 




ISTALL 


2522 


010316 


000762 








BR 


CT3A 


IREPEAT 


2323 










I******************* ************ ft ********************* ******************* 


2324 


010320 


000004 






P2T4I 


4 




1 PRQ2 TEST ROUTINE 4 « 


2523 


010322 


010732 








P2T3 




lADDRESS OF NEXT ROUTINE * 



•nAZN« 




27CfeS7J 


S7«N0V« 


71 l4Si6 PA@i 


§4 










pmMmpniHUn teits 














as§6 












2317 










iTAi TiST 








iSiS 


013314 


1 1767 




i§§if4 




MOV 


if iiTBCNT 


liiT TAB COUNT. 




3319 


0i@532 


104014 








CK3S 




iSSf 




1330 












SCOPi 




INO, 




2S3t 




i3B*i9a r 








J8R 


SiiTPBM 


ITYPE MARKERS 




iS3g 


1 0542 










7 








1333 


at a«af 










TYPE 








2S34 












TiMRK*l 








SS95 


910390 


012767 


000007 


170626 


e74AI 


MOV 


•7,CTRA 


ILINE COUNT TO CTRA 




as3& 


010556 


903007 


0000<t9 






CLR 


SPCNT 


10 TO SPACE COUNT, 




iSS? 


010362 


004767 


000044 




CT4Bi 


JSR 


»T,TABP 


160 SPACE-TAB, 




S33S 


010966 


003267 


000036 






INC 


SPCNT 


INCREMENT SPACE COUNT, 




2539 


010572 


00S367 


170606 






DEC 


CTRA 


rOONE 7 LZNESf 




25ae 


010576 


001371 








BNE 


CT4B 


IBRANCH IF NOT DONE. 




25«l 




104012 








SCOPE 




lOONE. SCOPE, 




2342 




01 2367 


170576 




TPBMI 


MOV 


C3)*,CTRA 


/TYPE TEST TITLE, 




2343 


1 0606 


1 04000 








TYPE 








2344 


010610 


SI 4 A^tAa 








TBTST 








2345 


010612 


104000 






TFSMAI 


TYPE 




ITYPB MARKERS 




2346 


010614 


014326 








TBMRKl 








2347 


010616 


005367 


170562 






DEC 


CTRA 






2348 


1 0622 










BNE 


TP8MA 






2349 




IUI0I0EI03 








RT8 


X5 


?EXIT, 




23S0 


1 0626 


000000 






TiCNTi 


OPEN 




fTAB COUNT 




2351 


010630 


000000 






8PCNTI 


OPEN 




ISPACE COUNT 




255a 


1 0632 


1 0*1000 






TABPI 


TYPE 




ICRLF, 




2553 


010634 


14337 








CRLF 








2554 


1 0636 




177764 


170542 




MOV 


TBCNT,CTRB 


ITAB COUNT TO CTRB 




2555 


n « akan 


016767 


1 77760 


170336 


TABPAI 


MOV 


SPCNT, CTRC 


ISPACE COUNT TO CTRC 




2556 


a) I I0u9e 


00 1407 








BEQ 


TABPC 


IBRANCH IF SPACE COUNT IS 0, 




2557 


to 1 tS v3>l 




10 101010 mo 




TABPBI 


MOVB 


#40, X0 


ISPACE 




2553 


V I iOQOki 


004767 


173312 






J8R 


X7,LSPCH 






2559 


01 1 0llk&/l 

is 1 




1 70520 






DEC 


CTRC 


IDECREMENT SPACE COUNT 




2560 


w i u w r 10 


001371 








BNE 


TABPB 


IBRANCH IF NOT YET 0. 




2561 


010672 


1 12700 


00001 1 




TABPCI 


MOVB 


#llf X0 


ITAB 




2S6S 


H 4 U V r D 


004767 


1 73474 






JSR 


X7,USPCH 






2563 


10702 


004767 


1 73470 






JSR 


X7,U8PCH 


IDUMMY CYCLE 




2564 


» t (0 r wD 


004767 


1 73464 






JSR 


X7,LSPCH 


IDUMMY CYCLE, 




2565 


010712 


1 12700 


I0IOSDV/3 r 






MOVB 


#'/,X0 


ITYPE 




2566 


010716 


004767 


173434 






JSR 


X7,USPCH 






2567 


010722 


005367 


170460 






DEC 


CTRB 


IDECREMENT TAB COUNT, 




2568 


010726 


001346 








BNE 


TABPA 


IBRANCH IF NOT DONE TABBING, 




2569 


010730 


000207 








RTS 


X7 


IDONE, EXIT, 




2570 














63 f I 


010732 


000005 






P2T5J 


3 




1 PRG2 TEST ROUTINE 5 


* 


2572 


010734 


010750 








P2T6 




lADDRESS OF NEXT ROUTINE 




2373 












2574 










I7YPE 


LINE OF CHARACTERS ABC 






2575 


010736 


104000 








TYPE 




ITYPE "CHARACTER TESTS" 




2576 


010740 


014507 








CMRTST 








2577 


010742 


104016 








TYPI.N3 




ITYPE LINE 




2578 


010744 


014176 








A 








2579 


010746 


104012 








SCOPE 




ISCOPE 





.MAIN, 


MACYll 


27C657) 17«N0V«75 


14106 PAGE 55 


OZKLAE 


PRG2*PRINTER TESTS 




2580 








2581 


010750 


000006 


P2T6I 6 1 PRG2 TEST ROUTINE 6 * 


2582 


010752 


010762 


P2T7 lADORESS OF NEXT ROUTINE * 


2583 






1 ********************************************************************** 


2584 






ITYPE LINE OF CHARACTERS DEF 


2585 


010754 


104016 


TYPLN3 ITYPE LINE 


2586 


010756 


014201 


D 


2587 


010760 


104012 


SCOPE ISCOPE 


2588 






; ******************* ******************** *ik*ft****A ********************* 


2589 


010762 


000007 


P2T7I 7 1 PR62 TEST ROUTINE 7 * 


2590 


010764 


010774 


P2T10 lADDRESS OF NEXT ROUTINE * 


2591 
2592 






ITYPE LINE OF CHARACTERS GHI 


2393 


010766 


104016 


TYPLN3 ITYPE LINE 


259a 


010770 


014204 


G 


2595 


010772 


104012 


SCOPE ISCOPE 


2596 






;**********************«*******************«******«*******«****«****«*«*«, 


2597 


010774 


000010 


P2T10I 10 1 PRG2 TEST ROUTINE 10 * 


2598 


010776 


0U006 


P2T11 lADDRESS OF NEXT ROUTINE * 


2599 






1 ************************************************************************ 


2600 






ITYPE LINE OF CHARACTERS OF JKL 


2601 


011000 


104016 


TYPLN3 ITYPELINE 


2602 


011002 


014207 


J 


2603 


011004 


104012 


SCOPE ISCOPE 


2604 






1************************************************************************ 


2605 


011006 


000011 


P2T11 1 11 1 PRG2 TEST ROUTINE 11 * 


2606 


011010 


0U020 


P2T12 lADDRESS OF NEXT ROUTINE * 


2607 






f ******************* ***************************«****«*ft*******4k****ftAft*«* 


2606 






ITYPE LINE OF CHARACTERS MNO 


2609 


011012 


104016 


TYPLN3 ITYPE LINE 


2610 


011014 


014212 


M 


2611 


011016 


104012 


SCOPE ISCOPE 


2612 






;********•************************««**«*************«**************«*«*«* 


2613 


011020 


000012 


P2T12I 12 1 PRG2 TEST ROUTINE 12 * 


2614 


011022 


011032 


P2T13 lADDRESS OF NEXT ROUTINE * 


2615 






1 **************««*****************************************(),************** 


2616 






ITYPE LINE OF CHARACTERS PQR 


2617 


011024 


104016 


TYPLN3 ITYPE LINE 


2618 


011026 


014215 


P 


2619 


011030 


104012 . 


SCOPE ISCOPE 


2620 






I*********************************************************!),************** 


2621 


011032 


000013 


P2T13I 13 1 PRG2 TEST ROUTINE 13 * 


2622 


011034 


011044 


P2T14 lADDRESS OF NEXT ROUTINE * 


2623 






I************************************************************************ 


2624 






ITYPE LINE OF CHARACTERS STU 


2625 


011036 


104016 


TYPLN3 


2626 


011040 


014220 


S 


2627 


011042 


104012 


SCOPE 


2628 






I************************************************************************ 


2629 


011044 


000014 


P2T14I 14 1 PR02 TEST ROUTINE 14 * 


2630 


011046 


011056 


P2T13 lADDRESS OF NEXT ROUTINE • 


2631 






1 **********«**************************»************«*******«»*«****t<»***« 


2632 






ITYPE LINE OF CHARACTERS VWX 


2633 


011050 


104016 


TYPLN3 ITYPE LINE 



.MAIN, 


MACYU 


ITtfeSTJ i7«N0VefS 


14106 §6 


OZKLAC 


pm&9?ntnun tests 




2634 


011 @9S 


014223 


V 


2633 


0} 1034 


104012 




2636 








2637 


01 1036 


Of w vv 4 3 


PSTISS t IS 1 PRSi TSST ROUTINE |@ @ 


2638 




01 1070 


F2T16 lADORCBS OF NEXT ROUTINE t 


2639 








2640 






iTYPi UINE OP CHARACTER! Yli 


2641 


01 1061 


1 v*iB16 


TTPUNS |T¥Pg WINE 


2642 


ail 0I& A 


014226 


y 


2643 




104012 


SCOPE ISCOPE 


2644 








2645 


01 1070 


nniAin i ^ 
0019010 


P2T16I 16 1 PRSi TEST ROUTINE 16 t 


2646 


1 1072 


01 1 102 


P2T17 lADORBSa OF NEXT ROUTINE t 


2647 








2646 






nVPi LINE OF CHARACTERS 123 


2649 


01 1074 


104016 


TYPUNS iTYPg LINE 


26S0 


01 1076 


014231 


ONE 


26S| 


0111 00 


104012 


3C0PE yacopE 


2652 








26S3 


011 102 


BBOE! 1 7 


P2T17I 17 1 PRB2 TEST ROUTINE 17 «r 


26S4 


a 1 1 1 an 
will 10 


011114 


P2T2i lADDRESS OF NEXT ROUTINE i 


2635 






A«r«»i»«r«!ii« ft ft »««i«««ftiSi«t««««««dtSrts»ti!«t«|ifi««««d#r«r#«e)»iiat^ 


2656 






ITYPE UINE OF CHARACTERS 456 


2657 


0111 06 


104016 


TYPLN3 ITYPE LINE 


2656 


w 1 1 1 110 


1 4234 


FOUR 


2659 


011112 


104012 


SCOPE ISCOPE 


2660 






|****ft****ft**ft**«r*ft****ft******ik*««ft*ft*«**«ft«*ft«ft*«***ft«***ftftft«ftftftftft*««*ft« 


2661 


011114 


01 01 01 01301 


P2T20I 20 f PR02 TEST ROUTINE 20 * 


2662 


011116 


0111 26 


P2T21 lADDRESS OF NEXT ROUTINE * 


2663 






|ft***ft******ft*ft****ft****«*********«ft*ft****ft****ftft*«**ft***«ft***ftft*ft***** 


2664 






ITYPE LINE OF CHARACTERS 789 


2665 


oil 1 1 301 


_ „ - 


TYPLN3 ITYPE LINE 


2666 


ai < « 33 
0111 ce 


1 '•23T 


SEVEN 


2667 


011 124 


104012 


SCOPE ISCOPE 


2668 






|**ftft******ft*ft*ftft*ft***ft****ft«*ftftft*****«ft***«ftft*«ft*ft*tftft**ft«tft*ftftft*«***ft**ft 


2669 


0111 26 


not 01 019 1 


P2T21I 21 1 PRG2 TEST ROUTINE 21 * 


2670 


0111 30 


011140 


P2T22 lADDRESS OF NEXT ROUTINE * 


2671 






|*ft*******ft«ftftft«*********ft*ft*ftftft**ft**ftftft**ft***ftft***«ftft**«i*ftft*««ftft*ft(rft*ft*« 


2672 






ITYPE LINE OF CHARACTERS! "# 


2673 


01 1 132 


1 040 1 6 


TYPLN3 ITYPE LINE 


2674 






C4l 


2675 


1 1 1 36 


1040 1 2 


SCOPE ISCOPE 


2676 






|*****ft***ftft*ftft*******ftftft**«t«*****ft**ft*«*****ft«**ftft*****ft*ft*ft«*«ft***ft*««t* 


2677 


011140 


000022 


P2T22I 22 1 PRG2 TEST ROUTINE 22 ft 


2678 


011142 


011152 


P2T23 lADDRESS OF NEXT ROUTINE * 


2679 






|ftftft*ftft**ftftft****ft*ft*ft*ft*ft*ftftft*ft*ft***ftftftftft*ft*ftftftftftftft*ftftftftftftft«ft*ftftftft**ftftftftft 


2680 






ITYPE LINE OF CHARACTERS SX& 


2681 


011144 


104016 


TYPLN3 ITYPE LINE 


2682 


011146 


014245 


C44 


2683 


011150 


104012 


SCOPE ISCOPE 


2684 






|*ft*ft**ftftft*ftft*ft«ftftftftft*ftftftftftft«ftft****ft*ft*ftft«ftft*iitftft«,****«*«A**ft*ftftftftftftftftft*ft* 


2685 


011152 


000023 


P2T23I 23 1 PRG2 TEST ROUTINE 23 ft 


2666 


011154 


011164 


P2T24 lADDRESS OF NEXT ROUTINE * 


2687 






|*«****ft****ft**ft**ftftftft**ft*ft*ft*ft**ft*****ft*********ftftft**ft**ftft**ft*ftft*ftftftftftftft 



aMAIN, 


MACYU 


27C657) 17-N0V-75 


14106 PAGE 57 


OZKLAE 


PRG2«'PRINTER TESTS 




2686 






ITYPE LINE OF CHARACTERS * () 


2669 


011156 


104016 


TYPLN3 ITYPE LINE 


2690 


011160 


014250 


C47 


2691 


011162 


104012 


SCOPE ISCOPE, 


2692 






|**ft«ft*ft**ft*ft«ftft****ftftft*********ft*ftft*ftftftft**ftft*ftftftft**ftft*ftft*ft**««*ft«tft***tf*ft 


2693 


011164 


000024 


P2T24I 24 1 PRG2 TEST ROUTINE 24 ft 


2694 


011166 


01U76 


P2T25 lADDRESS OF NEXT ROUTINE ft 


2695 






|ftftftftftft**ftftftft«*ft*ftft«*ft****ft***ftft*ftftftftftft*ftftft**«,ft««ift«ft*ft*ft**ftft*«*ft**ftftftftft** 


2696 






ITYPE LINE OF CHARACTERS 


2697 


011170 


104016 


TYPLN3 ITYPE LINE 


2698 


011172 


014253 


C52 


2699 


011174 


104012 


SCOPE ISCOPE 


2700 






|ft«ftftft«tft*ftftftftftftftftftftftftftftftftftft«tftftftftftftft«ftftftftft*ftftftftftft*ftftftftftftftftftftftftftftftftftftftftftftftft 


2701 


011176 


000025 


P2T25J 25 1 PRG2 TEST ROUTINE 25 ft 


2702 


011200 


011210 


P2T26 lADDRESS OF NEXT ROUTINE * 


2703 






|ftft**ft*ftftftftftftftftft******ftftft*ftft****ft*ftftftftftftft*****ft**ft«,***ftft«ftftft**ft«*****ftftft* 


2704 






ITYPE LINE OF CHARACTERS 


2705 


011202 


104016 


TYPLN3 ITYPE LINE 


2706 


011204 


014256 


CSS 


2707 


011206 


104012 


SCOPE ISCOPE 


2708 








2709 


011210 


000026 


P2T26I 26 1 PRG2 TEST ROUTINE 26 * 


2710 


011212 


011222 


P2T27 lADDRESS OF NEXT ROUTINE * 


2711 






|**ftftft*ftftftftftftft*ftftftft*ftftftft«*ftft***ftftftftftft*ftftft*ftftftft**ftft*ftft*ftft*ft*ftftft««ftftftft*ftAi** 


2712 






ITYPE LINE OF CHARACTERS l|< 


2713 


011214 


104016 


TYPLN3 ITYPE LINE 


2714 


011216 


014261 


C72 


2715 


011220 


104012 


SCOPE ISCOPE 


2716 






|ftftftftftft«ftft*ftftftftftft*ftft*ftft*ftftft*«**ftftftftftftftft*ftftftft*ftft*ftftft**ftftft«,«ft«ft*«*ftft*ftft**** 


2717 


011222 


000027 


P2T27I 27 1 PRG2 TEST ROUTINE 27 ft 


2718 


011224 


011234 


P2T30 lADDRESS OF NEXT ROUTINE ft 


2719 








2720 






ITYPE LINE OF CHARACTERS ■>? 


2721 


011226 


104016 


TYPLN3 ITYPE LINE 


2722 


011230 


014264 


C7S 


2723 


011232 


104012 


SCOPE ISCOPE, 


2724 








2725 


011234 


000030 


P2T30I 30 1 PR02 TEST ROUTINE 30 ft 


2726 


011236 


011246 


P2T31 lADDRESS OF NEXT ROUTINE ft 


2727 








2728 






ITYPE LINE OF CHARACTERS 9l\ 


2729 


011240 


104016 


TYPLN3 ITYPE LINE 


2730 


011242 


014267 


C100 


2731 


011244 


104012 


SCOPE ISCOPE 


2732 








2733 


011246 


000031 


P2T31I 31 1 PR62 TEST ROUTINE 31 * 


2734 


011250 


011260 


P2T32 lADDRESS OF NEXT ROUTINE * 


2735 






|ft*ft*ftftftft**ftftft***ftftft*ftftftftft*ft*ftft*ftftftftft*ftftftft***ftftft**ftftftft***ftftftftft*ftftftft«*ft**ft 


2736 






ITYPE LINE OF CHARACTERS 1*AND LEFT ARROW 


2737 


011232 


104016 


TYPLN3 ITYPE LINE 


2738 


011254 


014272 


C135 


2739 


011256 


104012 


SCOPE ISCOPE 


2740 






|ft*ftftft*ftft*ft*ftftftft«*ftftftftftftftft*ftftftft«ft*ft*ftftftftftftft****ftft*ftftftftft*ft*ftftft**Mft**«**«*ft 


2741 


011260 


000032 


P2T32I 32 1 PRQ2 TEST ROUTINE 32 « 







i7(§if3 


IffflNQVs 


fS |iiS6 PkM 


IS 








pnm^pnmun tuts 














il i§i§ 


§11316 








PtTSS 




/ADDRESS Of NE^T ROUTINE t 




























i LINES 


OP ALL CHARACTERS, FIRST LINE PULL SPEED. SECOND LINE WITH STALLS, 




il liBQ 




1 7 J490 






JSR 


X7,FBALL 


fPILL BUFFER WITH ALL CHARACTERS. 


aT«& 


il 1170 


048767 




167711 




BZC 


iBITUfPROlD 


ICLEAR STALL BIT IN PR8ID 


i7«7 


311376 


@@4767 


171336 






J8R 


%7,TYPLN 


/TYPE LINK. 


1793 


il S308 


0S3767 


S49SI)bI 


167740 




ilS 


iSZT|4,PR6ZD 


ISET STALL BIT IN PRQZD 


37«9 


011310 


004767 


1 71334 






Jin 


X7,TYPLN 


ITYPE LINE. 


§710 


011314 


104013 








SCOPE 




f SCOPE, 


2751 














S7SS 


011316 


000033 








S3 




1 PR03 TEST ROUTINE 33 * 


3733 


01 1310 


01 1400 








P8TS4 




/ADDRESS OF NEXT ROUTINE * 


2754 














2755 










IT7PE 


13 LINES 


OP A8R33 mn^f 


CASE PATTERN, ALTERNATE LINES WITH STALLS, 


2756 


01 1322 


104013 








CK3S 




133? 


2737 


01 1334 


1 0401 2 








SCOPE 




/NO. BYPASS TEST, 


2738 


01 1326 


104000 








TYPE 




/TYPE "WORST CASE PATTERN TEST" 


27S9 


01 1330 


014533 








WCPT8T 






27&e 


01 1332 


004767 








JSR 


X7|FW336 


/PATTERN TO BUFFER, 


2761 


01 1336 


012767 


000006 


170040 




MOV 


•6|CTRA 


/SET COUNT TO 6 


2762 


011 344 


042767 


040000 


167676 


CT33AI 


BZC 


«BIT14,PR0ID 


/CLEAR STALL BIT IN PRGID. 


2763 


01 1352 


004767 


173162 






JSR 


X7,TYPLN 


/TYPE LINE 


2764 


01 1356 


052767 




167664 




iZS 


#aiTl4,PRGlD 


/SET STALL BIT IN PRGID. 


2763 


01 1364 


004767 


173130 






JSR 


X7,TYPLN 


/TYPE LINE, 


2766 


01 1370 


005367 


1 70010 






DEC 


CTRA 


/DONE 6 TIMES? 


2767 


01 1374 


001363 








BNE 


CT33A 


/BRANCH IF NOT 6 TIMES YET, 


2763 


01 1376 


104012 








SCOPE 




/DONE. SCOPE. 


2769 












***«***««r******<i*«ft**(k<r***«***««,****** ****** **««*«****•*« 


2770 










P2T34I 


34 




/ PROS TEST ROUTINE 34 * 


2771 


at 4 /Ida 


177777 








P3TLST 




/ADDRESS OF NEXT ROUTINE * 


2772 












2773 












12 LINES 


OF ASR3S WORST 


CASE PATTERN. ALTERNATE LINES WITH STALLS, 


2774 


01 1404 


104014 








CK33 




/3Sf 


2775 


011006 


104012 








SCOPE 




/NO, BYPASS TEST. 


2776 


011410 


104000 








TYPE 




/TYPE "WORST CASE PATTERN TEST" 


2777 


011412 


014533 








WCPTST 






2778 


011414 


004767 


173426 






JSR 


X7,FW356 


/PATTERN TO BUFFER, 


2779 


011420 


012767 


000006 


167756 




MOV 


#6, CTRA 


/SET COUNT TO 6, 


2780 


011426 


042767 


040000 


167614 


CT34AI 


BIC 


*BIT14,PRGID 


/CLEAR STALL BIT IN PRGID, 


2781 


011434 


004767 


173100 






JSR 


X7,TYPLN 


/TYPE LINE, 


2782 


011440 


052767 


040000 


167602 




BIS 


»8ITlfl,PRGID 


/SET STALL BIT IN PRGID. 


2783 


011446 


004767 


173066 






JSR 


X7,TYPLN 


/TYPE LINE 


2784 


011 452 










DEC 


CTRA 


/DONE 6 TIMEST 


2785 


011456 


001363 








BNE 


CT34A 


/BRANCH IF NOT 6 TIMES YET, 


2786 


011460 


104012 








SCOPE 




/DONE. SCOPE, 


.MAIN, 


MACYli 


27C6573 


* 


75 i4l0« 


» PAGE 


59 






DZKUAE 


PRG3«PUNCH TEST 














2787 












.SBTTL 


PRC3-PUNCH TEST 


2788 










IPRG3 


» PUNCH 


TEST 




2789 




000003 








Z«3 






2790 




177777 








X8-1 






2791 


011462 


012767 


011510 


167544 


PRG3I 


MOV 


#P3T0,KSTART 


/ADDR OF 1ST ROUTINE TO KSTART, 


2792 


011470 


052767 


n /in A n m 


167552 




BIS 


#BIT14,PRGID 


/ALLOW STALLS, 


2793 


011476 


012767 


1 77400 


171500 




MOV 


#177400, STLMSK 


/SET STALL MASK 


2794 


011504 


000167 


1 70134 






JHP 


8RSET 


/GO GET STARTED 


2795 












*********************************************************** 


2796 


011510 


000000 






P3T0I 







/ PRG3 TEST ROUTINE * 


2797 


011512 


011566 








P3T1 




/ADDRESS OF NEXT ROUTINE * 


2796 


011514 


000005 








5 




/TEST ITERATION COUNT * 


2799 


011516 


011520 








P3AA 




/SCOPE ENTRY POINT * 


2800 












2801 










IPUNCH 


SPECIAL 


BINARY COUNT PATTERN IN PUNCH MODE (FULL SPEED) 


2802 


011520 


012767 


Blu \ IoISkI 


167634 


P3AAI 


MOV 


#512.,RCNT 


/SET CHARACTER COUNT TO 512 


2803 


011526 


004767 


000216 






JSR 


X7,PFRNT 


/GO PUNCH FRONT END, 


2804 


011532 


004767 


172270 






JSR 


X7,INBIN 


/INITIALIZE SPECIAL BINARY COUNT 


2805 


011536 


004767 






P3ABI 


JSR 


X7,GTBIN 


/GET BINARY CHARACTER 


2806 


011542 


004767 


1 72630 






JSR 


X7,LSPCH 


/GO PUNCH THE CHARACTER 


2807 


011546 


005367 


167610 






DEC 


RCNT 


/DECREMENT CHAR COUNT, 


2808 


011552 


001371 








BNE 


P3AB 


/BRANCH IF COUNT NOT YET YET. 


2809 


011554 


004767 


00OC WO 






JSR 


X7,PLTLR 


/PUNCH TRAILER. 


2810 


011560 


004767 


aaao XOi 
V/VlOC 






JSR 


X7,PCHECK 


/CHECK DATA PUNCHED, 


2811 


011564 


104012 








SCOPE 




/SCOPE 


2812 












2813 


011566 


000001 






P3T1I 


1 




/ PRG3 TEST ROUTINE 1 * 


2814 


011570 


011646 








P3T2 




/ADDRESS OF NEXT ROUTINE * 


2815 


011572 


000005 








5 




/TEST ITERATION COUNT * 


2816 


011574 


011576 








P3BA 




/SCOPE ENTRY POINT * 


2817 












2818 










IPUNCH 


SPECIAL 


BINARY COUNT PATTERN IN PUNCH MODE 1 (RANDOM STALLS AFTER 


2819 










/PUNCHING EACH 


CHARACTER.) 




2820 


011576 


012767 




167556 


P3BAI 


MOV 


#512., RCNT 


/SET CHARACTER COUNT TO 512, 


2821 


011604 


004767 


nnfli 4/101 
Bwu 1 'f IP 






JSR 


X7,PFRNT 


/GO PUNCH FRONT END, 


2822 


011610 


004767 








JSR 


X7,ZNBIN 


/INITIALIZE SPECIAL BINARY COUNT, 


2623 


011614 


004767 


172244 




P3BBI 


JSR 


XTiGTBIN 


/GET BINARY CHARACTER, 


2824 


011620 


004767 


172552 






JSR 


X7,L8PCH 


/GO PUNCH THE CHARACTER, 


2825 


011624 


104002 








STALL 




/RANDOM STALL, 


2826 


011626 


005367 


167530 






DEC 


RCNT 


/DECREMENT CHAR COUNT, 


2827 


011632 


001370 








BNE 


P3BB 


/BRANCH IF COUNT NOT YET 0. 


2328 


011634 


004767 








JSR 


X7,PLTLR 


/PUNCH TRAILER, 


2829 


011640 


004767 


000150 






JSR 


X7,PCHECK 


/CHECK DATA PUNCHED, 


2830 


011644 


104012 








SCOPE 




/SCOPE 


2631 












2632 


011646 


000002 






P3T2I 


2 




/ PRG3 TEST ROUTINE 2 * 


2833 


011650 


177777 








P3TLST 




/ADDRESS OF NEXT ROUTINE * 


2834 


011652 


000005 








S 




/TEST ITERATION COUNT * 


2835 


011654 


011664 








P3CA 




/SCOPE ENTRY POINT * 


2836 












2837 










IPUNCH 


SPECIAL 


BINARY COUNT PATTERN IN PUNCH MODE 2. 


2838 










; (RANDOM STALL 


BEFORE PUNCHING 


RANDOM LENGTH GROUP OF CHARACTERS) , 


2839 










IMAXIMUM GROUP 


LEN6THI 15) 




2340 


0U656 


012767 


177760 


171706 




MOV 


•177760, RCM3K 


/SET CHAR GROUP MASK FOR 17(8) MAX), 







17(6373 


IfsNaVs* 


75 S4|i6 Pkm 










PRSlsFUNGH TEST 
















011664 


011767 


@0li@i 


16747i 




MOV 




imf wmmm count fs iii^ 




@U67I 


004767 


000052 






JS^ 




im PUNCH pnmf end. 


1343 


011676 


004767 


172114 






J8R 


S7f ZNBSN 


IINZrZALZZE IPECZAL BZNARY COUNT* 


2844 


Q11702 


004767 


171644 




?3CSI 


JIR 


X7,0RCNT 


fSBNERATi RANDOM CHARACTER COUNT 


iS43 


011706 


104002 








STALL 




IRANOOM STALL* 


S346 


011710 


004767 


172150 




J8R 


X7,0TBZN 


I8IT BZNARY CHARACTER, 


2S47 


011714 


004767 


1724S6 






JSR 


X7iL8PCH 


fPUNCH THE CHARACTER* 


284a 


011720 


005367 


167436 






DEC 


RCNT 


lOeCREMENT CHAR COUNT 


1849 


0117S4 


001404 








BEQ 


PSCO 


IBRANCH ZF COUNT IS 0. 


2890 


011716 


005367 


171642 






Die 


RNCNT 


;N0T B. DECREMENT RANDOM CHAR COUNT 


28P| 


011731 


001366 








BNE 


P3CC 


IBRANCH ZF COUNT NOT YET 0. 


2S92 


011734 


000762 








BR 


PSCB 


IBRANCH ZF COUNT 0. 


28S3 


011736 


004767 


000034 




P3CD! 


J8R 


X7,PLTLR 


IPUNCH TRAZLSR. 


2854 


011742 


004767 


000046 






J8R 


XTfPCHECK 


ICHECK DATA PUNCHED* 


28S3 


011746 


104012 








SCOPE 




ISCOPE* 


2896 










IROUTINC TO PUNCH FRONT END, 




2SS7 


0117S0 


004767 


000012 




PFRNTI 


J8R 


X7»PLTLR 


IPUNCH LEADER 


2698 


0117S4 


01S700 


000377 






MOV 


#377|X0 




2859 


011760 


004767 


172412 






JSR 


X7,LSPCH 


IPUNCH SYNC CHARACTER, (RUBOUT) 


2860 


011764 


000207 








RTS 


X7 


lEXZT, 


2861 


011766 


012767 


000106 


167410 


PLTLRI 


MOV 


#70.fCTRA 


ISET CTRA TO 70, 


2862 


011774 


012700 


000177 




PLTRAI 


MOV 


•177, X0 




2863 


012000 


004767 


172372 






JSR 


X7,L8PCH 


IPUNCH CODE 177 FOR LEADER/TRAZLER 


2864 


012004 


005367 


167374 






DEC 


CTRA 


IPUNCHED 70? 


286S 


012010 


001371 








BNE 


PLTRA 


IBRANCH ZF NOT YET 70, 


2866 


012012 


000207 








RTS 


X7 


IDONE EXZT. 


2867 


012014 


012767 


000226 


167362 


PCHECKI 


MOV 


il5B.|CTRA 


ISET SYNC COUNT TO 150. 


2868 


012022 


004767 


170544 




PCHKAI 


JSR 


X7, BREAD 


IREAD CHARACTER 


2869 


012026 


122767 


000377 


167330 




CMPB 


»377,CRBUP 


IZS ZT SYNC CHARACTER? C377) 


2870 


012034 


001405 








BEQ 


PCHKB 


IBRANCH ZF SYNC CHAR FOUND, 


287| 


012036 


005367 


167342 






DEC 


CTRA 


INOT FOUND, DECREMENT CTRA, 


2872 


012042 


001367 








BNE 


PCHKA 


IBRANCH ZF NOT 150 CHARS READ YET, 


2873 


012044 


104010 








EMALT 




1150 CHARS READ AND NO SYNC, HALT, 


2874 


012046 


000762 








BR 


PCMECK 


ITRY AQAZN, 


287S 


012050 


004767 


171752 




PCHKBl 


JSR 


XTiXNBZN 


IZNZTZALZZE BZNARY COUNT, 


2676 


012054 


012767 


001000 


167322 




MOV 


•512., CTRA 


ISET CHARACTER COUNT TO 512, 


2877 


012062 


004767 


170504 




PCMKCI 


JSR 


X7, BREAD 


IREAD CHARACTER. 


2878 


012066 


004767 


171772 






JSR 


X7,GTBIN 


ISET BZNARY COUNT CHARACTER, 


2879 


012072 


110067 


167267 






M0V8 


X0,CRBUF<(>1 




2680 


012076 


104004 








DATCHK 




ICOMPARE CHARACTERS. 


2881 


012100 


005367 


167300 




PCHKDl 


DEC 


CTRA 


1512 CHARS READ? 


2882 


012104 


001366 








BNE 


PCHKC 


IBRANCH ZF NOT 512 CHARS YET, 


2883 


012106 


000207 








RTS 


X7 


lEXZT, 



.MAIN, 


MACYil 


27(657) 


17-N0V» 


75 14106 


1 PAGE 


61 






DZKLAE 


PRG4»KEYB0AR0 TEST 












2684 












.SBTTL 


PRG4-KEYB0AR0 TEST 


2885 




000004 








Za4 






2886 




177777 








%nmi 






2867 


012110 


012767 


012134 


167116 


PRS4I 


MOV 


•P4T0,KSTART 




2868 


012116 


052767 


000200 


167124 




B2S 


•BIT7,PRGID 




2869 


012124 


104000 








TYPE 






2890 


012126 


014567 








KMSGl 






2891 


012130 


000167 


167510 






JMP 


8R8ET 




2892 














2893 


012134 


000000 






P4T0I 







1 PRG4 TEST ROUTINE * 


2894 


012136 


012240 








P4T1 




lAODRESS OF NEXT ROUTINE * 


2895 










1 ************************************************************************ 


2896 










ITEST 


THAT PRESSING KEY SETS 


DONE FLAG, 


2897 


012140 


012767 


000005 


167236 




MOV 


•5, CTRA 




2898 


012146 


104006 






ET0AI 


STRORV 






2899 


012150 


012204 








ET0B 






2900 


012152 


104000 








TYPE 




ITYPE "PRESS A KEY WZTHIN 10 SECS,** 


2901 


012154 


014605 








KMS62 






2902 


012156 


052777 


000100 


167024 




BZS 


«BIT6,#TK8 


lENABLE KYBD INTERRUPT, 


2903 


012164 


005067 


165606 






CLR 


P3W 




2904 


012170 


104024 








DELAY 




IWAIT 10 SECONDS 


2905 


012172 


023420 








10000. 






2906 


012174 


104000 








TYPE 




ITYPE "NO KEYBOARD REQUEST," 


2907 


012176 


015007 








KMS66 






2908 


012200 


104010 








EHALT 




IHALT. 


2909 


012202 


000411 








BR 


ET0CA 




2910 


012204 


105777 


167000 




ET0BI 


T8TB 


• TK8 


ITEST FOR DONE BIT ON 


2911 


012210 


100403 








BMI 


ET0C 


IBRANCH IF DONE BZT SET, 


2912 


012212 


104000 








TYPE 




IDONE BIT NOT SET, TYPElFALSE KEY- 


2913 


012214 


015035 








KMSG7 




IBOARD OR READER ZNTERRUPT, 


2914 


012216 


104010 








EHALT 




IHALT 


2915 


012220 


012716 


012226 




ET0CI 


MOV 


•ET0CA,#X6 




2916 


012224 


000002 








RTI 




lEXZT INTERRUPT. 


2917 


012226 


104011 






ET0CAI 


SRESET 






2918 


012230 


005367 


167150 






DEC 


CTRA 


IDONE 5 TIMES? 


2919 


012234 


001344 








BNE 


ET0A 


IBRANCH IF NOT DONE, 


2920 


012236 


104012 








SCOPE 




ISCOPE 


2921 












A****************************************************************** 


2922 


012240 


000001 






P4Ti 1 


I 




1 PR04 TEST ROUTZNE 1 * 


2923 


012242 


012320 








P4T2 




1 ADDRESS OF NEXT ROUTZNE * 


2924 










I************************************************************************ 


2925 










lECHO 


TEST, KEYED CHARACTER 


ZS TYPED, RUBOUT ENDS ROUTZNE. 


2926 


012244 


104000 








TYPE 




ITYPE TZTLE AND ZNSTRUCTZONS, 


2927 


012246 


014645 








KMSG3 






2926 


012250 


105777 


166734 




ETUI 


TSTB 


• TKS 


IWAZT FOR DONE FLAG 


2929 


012254 


100375 








BPL 


,•4 




2930 


012256 


117767 


166730 


167100 




MOVB 


•TKBiCRBUF 


IMOVE KYBD CHAR TO CRBUF, 


2931 


012264 


116777 


167074 


166724 




MOVB 


CRBUF,#TPB 


lECHO CHAR READ. 


2932 


012272 


105777 


166716 






TSTB 


• TPS 


IWAZT FOR PRZNTER DONE, 


2933 


012276 


100375 








BPL 


*"4 




2934 


012300 


042767 


000200 


167056 




BZC 


•BZT7,CRBUF 


ICLEAR BZT 7 FROM CRBUF, 


2935 


012306 


122767 


000177 


167050 




CMPB 


•177,CRBUF 


ICOMPARE CRBUF TO RUBOUT CIT75 


2936 


012314 


001355 








BNE 


ETIA 


IBRANCH ZF NOT RUBOUT (177) 


2937 


012316 


104012 








SCOPE 




ISCOPE 







27(657) 






1938 






3939 


011310 


000002 


g9d0 


012322 


177777 


39^1 






39#i 






1943 






89^9 


012324 


104001 


i943 


012326 


014747 


i946 


011330 


014660 


S947 


012332 


177777 


S943 


012334 


00S067 


2999 


012340 


103777 


i9S0 


012344 


100S7S 


299| 


012346 


117767 


29Sg 


012354 


004567 


2933 


012360 


001364 


295a 


012362 


015001 


2955 


012364 


104000 


2956 


012366 


014777 


293? 


012370 


042767 


2958 


012376 


022767 


2959 


012404 


001355 


2960 


012406 


104012 



17«N0V97S I4IS6 PA6E 62 



P4Tli § I mm TiS? ROUTINE i s 

P4TL8T f ADDRESS OF NEXT ROUTINE « 

;«***ft***«***li*ft*****«**tir*********«r***fk******«****t *«******«**«••« *«***•« 
I OCTAL EQUIVALENT TEST, THE OCTAL EQUIVALENT OF ANY CHARACTER KEYED 
118 FRINTED, RUBOUT ENDS ROUTINE. 

ITYFE TITLE AND INSTRUCTIONS. 



ET2AI 



167010 



166766 
166760 



TYPES 




KHS04 




KHS63A 




«l 




CLR 


CRBUF 


TSTB 


»TKS 


BFL 


• -4 


MOVB 


FTKB, CRBUF 


JSR 


XSiACNV4 


CRBUF 




OCTEQV 




TYPE 




KHS6S 




BIC 


#6177, CRBUF 


CMP 


#177, CRBUF 


BNE 


ET2A 


SCOPE 





IWAIT FOR DONE FLAG, 

ICHARACTER TO CRBUF 
ICONVERT CHAR IN CRBUF TO 
IPRINTABLE OCTAL 

ITYPE OCTAL EQUIVALENT 

fCLEAR BIT 7 FROM CRBUF 

I TEST FOR RUBOUT CHARACTER, 

^BRANCH IF NOT RUBOUT (177). 

I8C0PE, 



.MAIN, 


MACYU 


27 C6573 


17«N0V- 


75 1410 


6 PI>GE 


63 






DZKLAE 


PRG5 COMBINED 


TEST 












2961 












.SBTTL 


PRG5 COMBINED 


TEST 


2962 


012410 


104005 






PRG5I 


CHALT 




ISETUP HALT. 


2963 


012412 


004767 


172210 






JSR 


X7,STBF 


ISETUP BUFFER 


2964 


012416 


052767 


040000 


166624 




BIS 


#BIT14,PRGID 


; ALLOW STALLS, 


2965 


012424 


012767 


177600 


170552 




MOV 


#177600, STLM3K 


ISETMAX STALL TO 253 MSEC8, 


2966 


012432 


005067 


000054 






CLR 


PCHCNT 




2967 


012436 


005067 


000046 






CLR 


RBU8Y 




2968 


012442 


104006 








STRDRV 




ISET READER SERVICE TO RZERO. 


2969 


012444 


013064 








RZERO 






2970 


012446 


104007 








STPCHV 




;SET PUNCH SERVICE TO PCHDAT, 


2971 


012450 


012734 








PCHDAT 






2972 


012452 


012767 


000241 


000612 




MOV 


#241,SEED0 


UNITIALIZE PUNCH 


2973 


012460 


004767 


000574 






JSR 


X7,INIT0 




2974 


012464 


012767 


000077 


166714 




MOV 


#63. ,CTRB 




2975 


012972 


112377 


166520 






MOVB 


C3)*,#TPB 


/PUNCH FIRST CHAR, 


2976 


012476 


052777 


000100 


166510 




BIS 


#BIT6,#TPS 


/ENABLE PUNCH INTERRUPT. 


2977 


012504 


104400 








OELAYX 




ISTALL WHILE AWAITING INTERRUPTS. 


2978 


012506 


000776 








BR 


."2 


IBACK TO WAIT. 


2979 


012510 


000000 






RBUSYS 


OPEN 






2980 


012512 


000000 






PCHCNTI 


OPEN 






2981 


012514 


105777 


166474 




TSTPCHI 


TSTB 


PTPS 


/CHECK FOR DONE. 


2982 


012520 


100401 








BMI 


,♦4 


/BRANCH IF DONE SET, 


2983 


012522 


104010 








EHALT 




/NOT DONE, FALSE INTERRUPT. 


2984 


012524 


005267 


177762 






INC 


PCHCNT 


/INCREMENT PUNCH COUNT. 


2985 


012530 


000207 








RT8 


%7 


/EXIT. 


2986 


012532 


026727 


177754 


000024 


PCONTI 


CMP 


PCHCNT, #20, 


/CHECK PUNCH COUNT, 


2987 


012540 


103424 








8L0 


PCONTC 


/BRANCH IF LESS THAN 20. 


2983 


012542 


105767 


177742 






TSTB 


RBUSY 


/READER BUSY? 


2989 


012546 


100406 








BMI 


PCONTA 


/BRANCH IF READER BUSY. 


2990 


012550 


052767 


000200 


177732 




BIS 


#BIT7, RBUSY 


/NOT BUSY, SET IT BUSY, 


2991 


012556 


052777 


000101 


166424 




BIS 


#101,#TKS 


/ENABLE READER AND INTERRUPT, 


2992 


012564 


026727 


177722 


000050 


PCONTAI 


CMP 


PCHCNT, #40, 


/RECHECK PUNCH COUNT. 


2993 


012572 


101402 








BL03 


PCONTB 


/BRANCH IF EQUAL OR LESS THAN 40, 


2994 


012574 


005077 


166414 






CLR 


#TP8 


/DISABLE PUNCH INTERRUPT, 


2995 


012600 


032777 


000400 


165366 


PCQNTBI 


BIT 


#BIT8,#SRPTR 


/CHECK FOR FULL SPEED RUN. 


2996 


012606 


001001 








BNE 


PCONTC 


/BRANCH IF FULL SPEED DESIRED. 


2997 


012610 


104002 








STALL 




/GO STALL. 


2996 


012612 


112377 


166400 




PCONTCI 


MOVB 


(3)*,#TPB 


/LOAD PUNCH BUFFER. 


2999 


012616 


000002 








RTI 




/EXIT INTERRUPT, 


3000 


012620 


105777 


166364 




TSTRDRI 


TSTB 


#TKS 


/CHECK FOR READER DONE. 


3001 


012624 


100401 








BMI 


.4>4 


/BRANCH IF DONE SET, 


3002 


012626 


104010 








EHALT 




/NOT DONE, FALSE INTERRUPT. 


3003 


012630 


117767 


166356 


166526 




MOVB 


#TKB, CRBUF 


/CHECK READ TO CRBUF. 


3004 


012636 


005367 


177650 






DEC 


PCHCNT 


/DECREMENT PUNCH COUNT. 


3005 


012642 


000207 








RTS 


X7 


/EXIT, 


3006 


012644 


005767 


177642 




RCONTI 


TST 


PCHCNT 


/TEST PUNCH COUNT. 


3007 


012650 


001006 








BNE 


RCONTA 


/BRANCH IF COUNT NOT 0. 


3008 


012652 


042767 


000200 


177630 




BIC 


#BIT7, RBUSY 


/COUNT 0. CLEAR RBUSY. 


3009 


012660 


005077 


166324 






CLR 


#TKS 


/CLEAR READER INTERRUPT ENABLE. 


3010 


012664 


000002 








RTI 




/EXIT INTERRUPT 


3011 


012666 


026727 


177620 


000024 


RCONTAI 


CMP 


PCHCNT, #20. 


/COUNT LARGER THAN 207 


3012 


012674 


101014 








BHI 


RCONTC 


/BRANCH IF COUNT LARGER THAN 20. 


3013 


012676 


032777 


000100 


166310 




BIT 


#BIT6,#TPS 


/NOT LARGER. PUNCH INTERRUPT ENABLEOf 


3014 


012704 


001003 








BNE 


RCONTB 


/BRANCH IF ENABLED. 







ITC6S75 


i7wN0V» 




6# 






PRaS COMiXNgO 


TgST 










30IS 


111706 


S33777 




16&3i@ 




§IS 


#SIT6,#TP8 




0t27 14 


032777 


000400 


165111 


ReONTSI 


SIT 


iSITS,iSSPTR 


10ST 


012711 


!9)U • 1010 i 








BNE 


RCONTC 


seis 


012714 


104026 








R8TAI.U 




30H 


01S736 


005277 


l&6i§6 






ZNC 


iTKS 


I0ii 


012732 


10 WHUSlS 






RTI 




I0i| 


012734 


004767 


iT7SS4 




PCHD^T! 


JiR 


i57,TSTPCM 


3011 


012740 


00S367 


166440 






DEe 


CTRA 


3023 


12744 










SNg 


PCONT 


30S4 


012746 


005367 


166434 






DEC 


CTRB 


30gS 


1 S752 










SEQ 


PCHDTA 


S0i6 


f If ffl 




000312 






INC 


SieD0 


3027 


01 eT60 


Big (17 H f 


008274 






JSR 


X7,XNXT0 


30S8 












3R 


PCONT 


3089 


012' 66 


1 05067 


0021S2 




PCHDTAI 


CLRB 


BI.0CK1 


3030 


012772 




171341 






JSR 


%S,3M0Ve 


3031 


012776 


015 144 








BLOCKl 




3032 












SUOCKI*! 


3033 




anna a v 
»i9|s 1 !p r 








71, 




3034 


1 3004 




015142 






MOV 


iS|.0CKA,%3 


3033 


1 30 1 


012767 


000024 


166366 




MOV 


@20,iCTRA 


303& 


1 30 1 6 










STPCHV 




303? 


013020 


1 1024 








PCHZER 




3038 


1 3022 


000643 








BR 


PCONT 


3039 


1 3024 




177464 




PCHZERI 


JSR 


S7iT8TPCH 


3040 


13030 


003367 


1663S0 






DEC 


CTRA 


30fl| 


1 3034 


00 1236 








iNE 


PCONT 


30«2 


13036 


012767 


000241 


000226 




MOV 


#S41|3EED0 


3043 


13044 


004767 


000210 






JSR 


?57,INIT0 


3044 


013030 


012767 


000077 


166330 




MOV 


i63»«CTRB 


3045 


1 30S6 


1 loHUiO f 








STPCHV 




3046 




0127 34 








PCHDAT 




304? 


1 3062 


000623 








BR 


PCONT 


3043 


1 3064 


004767 


177330 




RZEROI 


JSR 


»7,TSTRDR 


3049 




10S767 


166270 






T3TB 


CRBUF 


3050 


013074 


BIG) 1 








BEQ 


RCONT 


3051 


13076 


004767 


000002 






JSR 


»7|RZERA 


3052 


013 102 


0004 1 5 








BR 


RDATA 


30S3 


013 104 


012767 


000241 


000204 


RZiRAi 


MOV 


i241,SEE01 


30S4 


013112 


004767 


000166 






JSR 


X7,1NIT1 


3055 


013116 


012767 


000077 


166266 




MOV 


#63,,CTRD 


3056 


013124 


104006 








STRORV 




305? 


013126 


013132 








R0A7 




3058 


013130 


000207 








RT8 


%7 


3059 


013132 


004767 


177462 




RDATI 


JSR 


%7,T3TR0R 


3060 


013136 


112467 


166223 




RDATAI 


MOVB 


(4)*iCRBUF*l 


3061 


013142 


104004 








DATCHK 




3062 


013144 


005367 


166240 






DEC 


CTRC 


3063 


013150 


001235 








BNE 


RCONT 


3064 


013152 


005367 


166234 






DEC 


CTRD 


3065 


013156 


001405 








BEQ 


ROATB 


3066 


013160 


005267 


000132 






INC 


SEEDl 


3067 


013164 


004767 


000114 






JSR 


X7,INIT1 


3068 


0I317S 


000625 








BR 


RCONT 



IBNABLE PUNCH INTERRUPTS. 

fCNECK FOR PULL SPEED RUN, 

IBRANCH IF ruu SPEED DESI^ED^ 

100 STALL. 

I ENABLE READER , 

lEXIT INTERRUPT. 

ICHECK PUNCH, 

174 CHARS OUTPUTTEDT 

IBRANCH IF NOT, 

1 63 LINES OUTPUTTEDT 

IBRANCH IF YES. 

fNO. SETUP FOR NEXT LINE. 

I8ETUP LINE. 74 TO CTRA 

ICONTINUE, 

IFILL PUNCH BUFFER NITH ZEROES 



IPUNCH BUFFER ADDRESS TO R3. 

ISET CHAR COUNT TO 20, 

ISET PUNCH SERVICE TO PCHZER, 

/CONTINUE. 

ICHECK PUNCH, 

I ALL CHARS OUTPUTTEDT 

IBRANCH IF NOT, 

IVES 

ISETUP LINE. 74 TO CTRA 

ISET LINE COUNT TO 63 

ISET PUNCH SERVICE TO PCHDAT, 

ICONTINUE, 

ICHECK READER. 

ITE8T CHARACTER READ, 

IBRANCH IF 0. 

ISET UP TO READ DATA, 

ISET UP LINE, 74 TO CTRC 

ISET LINE COUNT TO 63. 

ISET READER SERVICE TO RDAT, 

lEXIT 

ICHECK READER. 

IMOVE EXPECTED CHAR TO CRBUF«l 

ICHECK DATA. 

174 CHARACTERS CHECKED? 

IBRANCH IF NOT, 

163 LINES CHECKED? 

IBRANCH IF YES, 

INO. SETUP NEXT LINE AND 

174 TO CTRC, 

ICONTINUE, 



.MAIN, 
DZKLAE 



MACYll 27(6575 17-N0V-75 
PRG5 COMBINED TEST 
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3069 


013172 


105067 


002060 




RDATBI 


CLRB 


BL0CK2 


3070 


013176 


004567 


171136 






JSR 


X5#BM0VE 


3071 


013202 


015256 








BL0CK2 




3072 


013204 


015257 








BL0CK2*! 


3073 


013206 


000107 








71, 




3074 


013210 


012704 


015254 






MOV 


«BL0CKB|X4 


307S 


013214 


012767 


000024 


166166 




MOV 


#20,, CTRC 


3076 


013222 


104006 








STRDRV 




3077 


013224 


013230 








R20ZER 




3078 


013226 


000606 






RDATCl 


BR 


RCONT 


3079 


013230 


004767 


177364 




R20ZER3 


JSR 


%7,TSTRDR 


3080 


013234 


112467 


166125 






MOVB 


C4)+,CRBUF*1 


3081 


013240 


104004 








DATCHK 




3082 


013242 


005367 


166142 






DEC 


CTRC 


3063 


013246 


001367 








BNE 


ROATC 


3084 


013250 


004767 


177630 






JSR 


X7,RZERA 


3085 


013254 


000167 


177364 






JMP 


RCONT 


3086 


013260 


012703 


015142 




INIT0I 


MOV 


iBL0CKA|X3 


3087 


013264 


004567 


000040 






JSR 


X5,DTFL 


3088 


013270 


015144 








BLOCKl 




3089 


013272 


000000 






SEED0i 


OPEN 




3090 


013274 


012767 


0001 12 


166102 




MOV 


#74,, CTRA 


3091 


013302 


000207 








RTS 


X7 


3092 


013304 


012704 


0152S4 




INITII 


MOV 


«BL0CKB,X4 


3093 


013310 


004567 


000014 






JSR 


X5,0TFL 


3094 


013314 


015256 








BL0CK2 




3095 


013316 


000000 






SEEDll 


OPEN 




3096 


013320 


012767 


000112 


166062 




MOV 


#74,, CTRC 


3097 


013326 


000207 








RTS 


X7 


3098 


013330 


012502 






OTFLI 


MOV 


C5)+,X2 


3099 


013332 


012501 








MOV 


C5J*,Xl 


3100 


013334 


012767 


000110 


166020 




MOV 


•72,,RCNT 


3101 


013342 


022701 


000340 




DTFLAI 


CMP 


0*340, XI 


3102 


013346 


001002 








BNE 


DTFLB 


3103 


0133S0 


012701 


000241 






MOV 


#241, XI 


3104 


013354 


110122 






DTFUBl 


MOVB 


XI, (2)* 


310S 


013356 


005201 








INC 


XI 


3106 


013360 


005367 


165776 






DEC 


RCNT 


3107 


013364 


001366 








BNE 


DTFLA 


3108 


013366 


000205 








RTS 


X5 



IFILL READ BUFFER WITH ZEROES, 



IREAD BUFFER ADDRESS TO R4 

ISET CHAR COUNT TO 20, 

ISET READER SERVICE TO R20ZER 

ICONTINUE, 
ICHECK READER 

IMOVE EXPECTED CHAR TO CRBUF*! 

ICHECK DATA, 

lALL CHARS CHECKED? 

IBRANCH IF NOT, 

ISET UP TO READ DATA. 

IPUNCH BUFFER ADDRESS TO R3 
IFILL PUNCH BUFFER WITH DATA 
ISTARTINC WITH CHAR IN 8EED0 



lEXIT 

IREAD BUFFER ADDRESS TO R4 
IFILL READ BUFFER WITH DATA 
ISTARTING WITH A CHAR IN SEEDl 



lEXIT 

ISTARTING ADDRESS TO R2. 
ISEED TO Rl. 
ICHAR COUNT TO RCNT, 
I CR13EQUAL 340? 
IBRANCH IF NOT, 
lEQUAL, RESET TO 241. 
IMOVE CHAR TO BUFFER 
I INCREMENT CRl). 
IBUFFER FULL? 
IBRANCH IF NOT. 
lYES. EXIT 











71 S4Si4 Pill 










rif its 




























tSSTTL 






II l§ 












BINARY eOUN? P^TTiSN 


3S$i 










iSRiisHAU? ON 


IRROil, SRI4ei STAlLa SRS#il rUU SPIgO 


3111 


i| 337@ 


i|I7§7 


|77ei» 


I676S6 


PiS6l 


MOV 


#177100, STI.MSK 


rSIT STAU I.IMIT 


II SI 


Slllfl 


§11717 


|777§i 


170166 




MOV 


#177760, RCHSK 


ISIT RANOON eHAHAOTi^ (.SMlTs 


lll^ 


ii34i# 


i3S?&7 


040000 


163636 




SZS 


#BITl4,Pi@ID 


lAUQW 8TAUi» 


Ills 


iii^il 


as47»7 


I73S§§ 






J8R 


S7,§SYNC 


I8YNC READER, 


III! 


@I34|& 


§04717 


ITSIIi 








1I7,@RCNT 


fSINIRATi PIANDOH CHAR OOUNTs 


31 St 




031777 


0ii4ii 


I64S44 




BIT 


HBlTiiliaRPTR 


leHSeK FOR PUU SPIED RUN 


3111 


9 1 3^30 


§01001 








iNg 


@TB 


^BRANCH IP FUUl. SPEED DfllRiD, 


lilt 


0I34II 


104002 












|8TAU« 


3|i@ 


@|3434 


004767 


167112 




gTii 


J§^ 


17, BREAD 


iRiAD CHARAETiR 


3|l| 


@||44i 


004717 


I7i|3i 








i7,se:HEeK 


180 CHECK IT 


mi 




iSS36T 


170114 






ogc 


RNENT 


IDICREMENT CHAR COUNT 


3111 


i|34S0 


001371 








BNg 


GTi 


fSRANCH IP COUNT NOT 


3|g€ 


0l34Sg 


000761 








BR 


STA 


ICOUNT 0, START OVER, 


3|3§ 










»PRS7» 


PRINTiR 


EKERCISERs KEYBOARD CONTRQUEOa 


S|§i 










IT7PI8 


LINES WITN ANV S eMARACTERSs 8TA1.1.8 OR FULt. S^IED, 


liSf 


313434 


004767 


171 134 




Pfii7i 


J3R 


l57,8TiP 


laiT UP SUPPER, 


3|iS 


0134&0 


104000 








TYPE 




ITYPI TITUI 


3l2f 


013463 


015063 








PTMSl 






3|3@ 


il3464 


052767 


M A nnm ffs 
040000 


1633S6 


HTAi 


BI§ 


SB|T14,PRGID 


ISET STAUi. BIT IN PRSID, 


3|3i 


SI 3471 


012767 


177600 


167304 




MOV 


#177600, STIMSK 


JSET STALL MASK, 


3|3g 


1 3S00 


012703 


011144 






MOV 


#BL0CK1,%3 




3|33 


1 3S04 


1 04000 








TYPE 




ITYPE "TYPE IN DATA*, 


3134 


i I3S0& 


013111 








PTMii 






3| 3S 


013510 


003777 


163476 






T8T 


fTKB 


ICLEAR SUPPER, 


3|3& 


013514 


011767 


000006 


165662 




MOV 


!l»6,CTRA 


fCHAR COUNT TO CTRA, 


3137 


013523 


004767 


171360 




HTBl 


J8R 


X7,6KBCR 


>SET AND STORE KY80 CHARACTER, 


3I3S 


013526 


S0S367 


1 636S2 






DEO 


CTRA 


rGOT 6 CHARACTERS? 


3|39 


013532 


001373 








BNE 


HTB 


IBRANCH IF NOT 6 CHARS YET, 


3140 


013S34 


042767 


000300 


16S622 




BZC 


#Bn7,CRBUr 




31^1 


013542 


122767 


000177 


165614 




CMPB 


#177,CRBUP 


»CHECK 6TH CHAR POR RUBOUT, 


31*2 


01 35S0 


001013 








BNE 


HTC 


^BRANCH IF NOT A RUBOUT, 


31^3 


013552 


042767 


040000 


165470 




BIC 


«BIT14,PRGI0 


IRUBOUT, CLEAR STALL BIT IN PR8ID, 


3 1 4fl 


1 3560 


104013 








CK37 




137? 


3HS 


013562 


000406 








BR 


HTC 


INO, 


31^6 


13564 


004567 


1 70550 






J3R 


S5,BM0VE 


?YE8, PILL 81 CHAR LINE, 


314T 


013570 


015144 








BLOCKI 






31^8 


13572 


013151 








B10CKH5 






1 3574 










76, 






3 i 30 


1 3576 










BR 


HTD 




3lS| 


013600 


004S67 


170534 




HTCl 


JSR 


l3,iM0VE 


?PILL 72 CHAR LINE, 


3152 


013604 


015144 








BLQCKl 






3153 


013606 


015151 








Bl.OCKl*S 




3154 


013610 


000103 








67, 






3155 


013612 


004767 


170722 




HTDl 


JSR 


X7,TYPLN 


ITYPE LINE, 


3156 


013616 


005777 


164352 






TST 


#8RPTR 


ICHANGE DATA? CSRlSal}, 


3|3T 


013622 


10072S 








BMZ 


HTA 


IYE3, 60 CHANGE DATA 


3|5S 


013624 


000772 








BR 


HTD 


?N0 CONTINUE WITH SAME DATA, 



sMAIN, 


MACYll 


27(6573 


i7«N0V 


OZKLAE 


PRGi0, 


PRGU, PRG12 


3159 








3160 








3161 


013626 


012746 


000024 


3162 


013632 


005000 




3163 


013634 


004767 


170536 


3164 


013640 


005316 




3165 


013642 


001374 




3166 


013644 


004767 


170156 


3167 


013650 


004767 


170210 


3168 


013654 


004767 


170516 


3169 


013660 


000773 




3170 








3171 








3172 








3173 








317a 








3175 


013662 


104005 




3176 


013664 


004767 


000036 


3177 


013670 


000775 




3178 








3179 








3180 








3181 








3182 








3163 








3184 








3185 








3186 


013672 


104005 




3187 


013674 


004767 


000020 


3188 


013700 


017700 


165306 


3189 


013704 


000005 




3190 


013706 


000005 




3191 


013710 


000005 




3192 


013712 


000005 




3193 


013714 


000005 




3194 


013716 


000766 




3195 








3196 


013720 


052777 


000004 


3197 


013726 


117767 


164242 


3198 


013734 


005767 


000016 


3199 


013740 


001002 




3200 


013742 


005267 


000010 


3201 


013746 


117777 


164223 


3202 


013754 


104024 




3203 


013756 


000000 




3104 


013760 


000207 
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IPRG10, 
PRG10I 



,3BTTL PR610, PRGU, PRG12 

PUNCH SPECIAL BINARY COUNT PATTERN TEST TAPE 



MOV 


#20,,-C63 


IPUNCH 20 BLANK CHAR, LEADER 


CLR 


%0 




JSR 


X7,LSPCH 




DEC 


#X6 




BNE 


PRGI0A 




JSR 


%7,INBIN 


UNITIALIZE SPECIAL BINARY COUNT 


JSR 


SS7,GTBIN 


IGET BINARY CHARACTER, 


JSR 


%7,LSPCH 


IPUNCH CHARACTER 


BR 


PRG10B 


IREPEAT, 



I 
I 

IPRGll-PUNCH CLOCK ADJUSTMENT ROUTINE, 

lOUTPUTS CHARACTER SET IN LEFT HALF OF SR, AND 

ISTALLS FOR NUMBER OF MILLISECONDS SET IN RIGHT HALF OF SR, 

PRGUI CHALT IHALT TO SET SR, 

ITAI JSR X7,C1112 IGO OUTPUT CHARACTER SET IN LEFT 

BR ITA IHALF OF SR AND STALL PER SR RIGHT. 

I 
I 

IPRG12-REA0ER CLOCK ADJUSTMENT ROUTINE, 
IPERF0RM8 SAME FUNCTION AS PRGU, AND IN ADDITION, 
lUSiNG THE PUNCH MAINTENANCE BIT, SHIFTS OUTPUT OF PUNCH 
ISMIFT REGISTER ONTO THE READER BUFFER, THE CONTENTS OF THE 
IREADER BUFFER ARE THEN »'PIXED" ON THE CONSOLE DATA LIGHTS 
IBY ISSUING A RESET WITH CONTENTS OF READER BUFFER LOADED IN R0, 



PRG12I 
JTAI 



165242 C1U2AI 



CHALT 
JSR 
MOV 
RESET 
RESET 
RESET 
RESET 
RESET 
BR 



CU12MI BIS 
C1112I MOVB 
TST 
BNE 
INC 
MOVB 
DELAY 
OPEN 
RT8 



X7,C1U2M 

»TKB,X0 



JTA 



#4,PTPS 
#SRPTR,XTY 

XTY 

CU12A 

XTY 

#SRPTR*l,#TPB 



IHALT TO SET SR. 

IGO OUTPUT CHARACTER FROM SR LEFT AND 

I3TALL PER SR RIGHT, CTKB) TO RS, 

|"FIX" CTKB) IN DATA LIGHTS, 



IREPEAT, 

ISET MAINTENANCE MODE (PUNCH) , 
ISTALL COUNT TO XTY, 
IDISREGARD DELAY, 



ILOAD PUNCH BUFFER, 

IDELAY (APPROXIMATELY) THE NUMBER OP 
IMSECS, SPECIFIED AT SR RIGHT 
lEXIT 
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3liS tSBTTl. ^RStSf PSSH 

3281 |PROn*HAZNTINANC| HOOK IZNOUC CHARACTER DATA TEST, 

3107 IWXTH HAZNTENANCI NOOE SETi OUTRUTI ONTO PUNCH lUFFKR AND iACK ONTO 

32B8 IREAOER BUFFER THE CHARACTER SET IN SR kEPT. THE CHARACTER IN THE 

3209 IREAOER BUFFER XI COHFAREO TO THE CHARACTER IN SR LEFT. IF THE § CHARACTERS 
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OZKLAE 


PRG13, 


PRG14 












3210 










IDXSAGREE THE 


PROGRAM HALTS, THE 


; DATA LIGHTS WILL THEN CONTAIN 


32U 
3212 










aSFT MAUFI THE EXPECTED CHARACTER C8R LEFT), 


3213 










IRXGHT HALFI THE CHARACTER IN THE READER BUFFER. 
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IHALT TO SET SR. 
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013764 
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JSET MAINTENANCE MODE, 
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105777 


165216 




KTBI TSTB 


FTPS 


fWAIT FOR READY, 
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H0V8 
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IS/B CHAR TO CRBUF«1, 
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165353 


165202 


MOVB 


CRBUFtl|»TPB 


fOUTPUT CHARACTER. 
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105777 
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TSTB 


FTKS 


fWAIT FOR READER DONE FLAG, 
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117767 
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165334 


HOVB 
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OATCHK 
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BR 
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IREPEAT, 
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^PERFORMS SAME 


OPERATION AS PRG13, EXCEPT THAT SPECIAL BINARY ( 
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IPATTERN IS USED. 
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UNITIALIZE BINARY COUNT 
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MOV 


•177600, STLMSK 


ISET STALL LIMIT 
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052767 


040000 
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BXS 
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1 ALLOW STALLS 
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LTAI BIS 


•4, •TPS 


ISET MAINTENANCE MODE, 
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032777 


000400 


164076 


BIT 


«BIT8,#SRPTR 


fCHECK STALL SWITCH 
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014076 
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BNE 


LTB 
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014100 


104002 






STALL 




ISTALL 
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014102 


105777 
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LTBl TSTB 


• TPS 


IWAIT FOR READY, 
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IGET BIN CHARACTER, 
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110167 
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MOVB 


X1,CRBUF«1 


IMOVE TO 8/B CHAR, 
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014120 


110177 


165072 




MOVB 


XlifTPB 


lOUTPUT BIN CHARACTER. 
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014124 


10S777 
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TSTB 


FTKS 


IWAIT FOR READER DONE. 
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BEQ 
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IBR IF NOT, 
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014150 
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CTRA 


IDONE REQUIRED TIMES? 
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001342 






BNE 


LTA 


IBR IF NOT. 


3290 
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165670 




JMP 


CHNC 
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RCM3K 


003572 


RCNT 


001362 


RCONT 


012644 


RCONTA 


012666 


RCONTB 


012714 


RCONTC 


012726 


ROAT 


013132 


RDATA 


013136 


RDATB 


013172 


RDATC 


013226 


RDELAY8 


104025 


RDLCNTb 


003210 


RDLY 


003206 


RDLYA 


003230 


ROLYB 


003236 


RE8ET2S 


104023 


RIND 


004050 


RMB 


010266 


RMTST 


014417 


RM33A 


014341 


RM33B 


014347 


RM37A 


014353 


RNCNT 


003574 


RN6EN 


002520 


RPl 


002566 


RP2 


002570 


RSETT2 


002512 


RSTAL 


003306 


RSTALLss 


104026 


R8TLA 


003320 


RSTLAA 


003340 


RSTLB 


003342 


R3TPC 


002360 


R3TPSW 


002362 


RSTREGa 


104021 


R8TRG 


002324 


RTNNO 


001240 


RZERA 


013104 


RZERO 


013064 


R0 a; 


(000000 


Rl i>%000001 


R2 a%000002 


R20ZER 


013230 


R3 a%000003 


R4 s%000004 


R5 B 


%000005 


R6 8X000U06 


8 


014220 
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104020 


SAVRG 


002264 


SCOPE i 


104012 


8C0PTR 


001246 


SEED0 


013272 


8EED1 


013316 


SEVEN 


014237 


SHALT 


001510 


SHLTA 


001526 


SOFTSR 


000176 


SP s! 


l!000006 


8PB0T B 


001200 


' SPCNT 


010630 


SPTST 


014445 


SPTSTC 


014363 


8RE8E79 


104011 


SRPTR 


000174 


SR8ET 


001644 


8RSETT 


002474 


STAL 


003146 


STALA 


003200 


STALAA 


003160 


8TALB 


003202 


STALL ■ 


104002 


START 


001530 


STBF 


004634 


8T0FA 


004650 


STLM8K 


003204 


3TLSPV 


002444 


STL8RV 


002414 


8TPCHVB 


104007 


STPPA 


002462 


STPRA 


002432 


8TRDRV8 


104006 


8UBTEN 


004460 


SUBTNA 


004464 


SUBTNB 


004500 


8VRPC 


002320 


8VRPSW 


002322 


SYCTRA 


004024 


SYNCA 


003716 


SYNCB 


003724 


SYNCC 


004012 


TABP 


010632 


TA0PA 


010644 


TABPB 


010654 


TABPC 


010672 


TBCNT 


010626 


TBMRK 


014314 


TBMRKl 


014326 


TBT8T 


014300 


TCTR 


004572 


TENPWR 


004524 


TIMCAL 


003402 


TIMCLA 


003430 


TIMCLB 


003446 


TKB 


001212 


TKLVL 


001222 


TK3 


001210 


TKVTR 


001220 


TPB 


001216 


TPBM 


010602 


TPBMA 


010612 


TPLVL 


001226 


TPL3A 


004616 


TP8 


001214 


TPVTR 


001224 


T8PCH 


003456 


T3PCHA 


003542 


T8PCHB 


003550 


T8PCHC 


003500 


TSTPCH 


012514 


TSTRDR 


012620 


TTYTYP 


001230 


TYP 


002666 


TYPA 


002676 


TYPC 


002720 


TYPD 


002746 


TYPOAT 


003012 


TYPE 8 


104000 


TYPES a 


104001 


TYPF 


002764 


TYPG 


002776 


TYPLA 


004546 


7YPLB 


004552 


TYPLN 


004540 


TYPLN3a 


104016 


TYPL3 


004574 


TYPS 


003014 


TYPSA 


003040 


TYP3B 


003042 


V 


014223 


NCPTST 


014533 
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XTY 


013756 


Y 


014226 


Z B 


000004 




015142 
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